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Abstract 

This report describes my successful project to build a working reproduction of the 1964 
prototype for the Block I Apollo Guidance Computer. The AGC is the flight computer for the 
Apollo moon landings, and is the world's first integrated circuit computer. 

I built it in my basement. It took me 4 years. 

If you like, you can build one too. It will take you less time, and yours will be better than 
mine. 

I documented my project in 9 separate .pdf files: 

Part 1 Overview: Introduces the project. 

Part 2 CTL Module: Design and construction of the control module. 

Part 3 PROC Module: Design and construction of the processing (CPU) module. 

Part 4 MEM Module: Design and construction of the memory module. 

Part 5 I O Module: Design and construction of the display/ keyboard ( DSKY) module. 

Part 6 Assembler: A cross-assembler for AGC software development. 

Part 7 C++ Simulator: A low-level simulator that runs assembled AGC code. 

Part 8 Flight Software: My translation of portions of the COLOSSUS 249 flight 

software. 

Part 9 Test & Checkout: A suite of test programs in AGC assembly language. 



Overview 

This document describes my AGC Block I C + + simulator. I developed it almost entirely from 
detailed information in this document: 

A. Hopkins, R. Alonso, and H. Blair-Smith, "Logical Description for the Apollo Guidance 
Computer (AGC4)", R-393, MIT Instrumentation Laboratory, Cambridge, MA, Mar. 1963. 

My simulator reproduces not only the AGC instruction set and user-accessible registers, but 
all of the registers, all microinstructions, time-pulse generator states, read, write and 
memory busses, and control pulses (logic signals) for all AGC subsystems. 

The simulator is a tool I used to capture AGC design from the R-393 document. When I got 
it working well enough to run my test and checkout software suite (described in part 9) and 
flight software (described in part 8), I knew I understood the AGC well enough to build one. 

The simulator header and source code files became requirements that guided my AGC logic 
design (described in parts 2-5). 

Running the simulator 



The simulator is ru 
display; the compi 
like this (most of 
the numbers are 
in octal): 

The top line is 
the revision 
number of the 
simulator. I 
went through 
lots of versions. 

The second line 
shows the Time 
Pulse Generator 
state (TP11) and 
some of the 
important scaler 
outputs. 



n by keyboard commands. The output is a scrolling, formatted text 

ler obligingly provides a little DOS window for viewing the output. It looks 



AGC 


4 SIMULATOR 


1.16 














TI 


: TP11 F17 


:0 


F13:0 


F10:2 


SCI 


:165130 








STA:0 STB 


:0 


BR1:0 


BR2:0 


SNI 


: CI : 1 LOOPCTR 





RPCELL: 00000 


INH1 


INH 


1 OpCELL:000 DnCELL:000 


SQ:02 


INDEX NDX0 




CP:ST1 WE 


















S: 0337 


G:040300 


P:100300 


(r)RUN :1 (p) 


PURST 


(F2,F4)FCLK:0 




RBO: 000000 


WBO:000000 


P2:l 




(s) STEP:0 








B:000300 




CADR:000337 


(n)INST:l 


PALM 


[*] 




X:000000 


Y:003425 


U:003426 


(a)SA :0 






00 


A:000000 


15 


BANK 


07 


36 


TIME1: 126367 


53 


OPT Y:000001 


01 


Q:003422 


16 


RELINT 




37 


TIME3: 137645 


54 


TRKR X: 100000 


02 


Z:003426 


17 


INHINT 




40 


TIME4:037775 


55 


TRKR Y: 100000 


03 


LP:000003 


20 


CYR 


155757 


41 


UPLINK: 100000 


56 


TRKR Z-.100000 


04 


IN0:000034 


21 


SR 


100011 


42 


OUTCR1:100000 






05 


INI .-000000 


22 


CYL 


077765 


43 


OUTCR2: 100000 


CF 


[ ] : KR [ ] : PA 


06 


IN2:000000 


23 


SL 


000000 


44 


PIPA X:100000 






07 


IN3:000000 


24 


ZRUPT 


003515 


45 


PIPA Y:100000 


A 


[ *] M: [00] 


10 


OUT0: 


25 


BROPT 


110307 


46 


PIPA Z:100000 


V 


[16] N: [36] 


11 


OUT1: 000201 


26 


ARUPT 


103517 


47 


CDU X:100000 


Rl 


[ +00000 ] 


12 


OUT2: 000000 


27 


QRUPT 


102040 


50 


CDU Y:100123 


R2 


[ +00001 ] 


13 


OUT3:000000 


34 


OVCTR 


056046 


51 


CDU Z:100000 


R3 


[ +05423 ] 


14 


OUT4:000000 


35 


TIME2 


100000 


52 


OPT X:100000 







The next line shows the current state of some small registers in the SEQ subsystem, which 
is part of the AGC control module. STA and STB stage registers which select instruction 
subsequences. BR1 and 2 are the branch registers. SNI is "select next instruction", a 1-bit 
register that does exactly that. CI is the "carry-in" bit for the ALU. The loop counter is used 
for iterating through arithmetic instructions. 



The next line, starting with RPCELL, shows important registers associated with interrupts 
and the priority counters. The tail-end of the line shows the current instruction (in the SQ 
register), which is an INDEX instruction. The subsequence is NDX0. 



The next line (CP) shows currently asserted control pulses (logic signals). ST1 and WE are 
being asserted. 

The left side of the next 4 lines shows the state of registers associated with memory (S, G, 
P, P2, and CADR), the ALU (B, X, Y, U), and the read bus (RBU) and write bus (WBU). 

The right side of those 4 lines shows control inputs for running, stepping, and clocking the 
simulator. 

The bottom part of the display shows AGC memory. The 2-digit numbers on the left show 
memory addresses from 00-56. Each memory location has a name; it's shown to the right of 
the address. Immediately to the right of that is the contents of that location. 

Addresses 00-17 are mapped to AGC registers, and are not really part of the AGC eraseable 
memory. Addresses 00-03 are the AGC central registers, followed by input and output 
registers. 

Addresses 16 and 17 are not storage locations, but a means for enabling and disabling 
interrupts. 

The eraseable memory starts at address 20. Addresses 20-23 are the editing registers. 
Writing to these causes the data in the registers to be shifted or rotated. 

Addresses 24-27 are used for saving the central registers (00-03) when an interrupt occurs. 

Addresses 34-56 are priority counter locations. The AGC will increment or decrement these 
based on + pr - logic signals to the priority counter cells. 

The lower right of the simulator is the DSKY: the display/keyboard user interface for the 
astronauts. The simulator is running the COLOSSUS 249 flight software load, and is 
currently executing major mode (POO), verb 16, noun 36, which is a monitor program to 
continuously display the command module elapsed time clock. The clock, displayed in Rl, 
R2, and R3, shows hours, 1 minute, and 54.23 seconds. It updates about once a second 
but, of course, you can't see that here. 

Compiler 

The simulator was compiled with Microsoft Visual C + + 6.0 Standard Edition. 



Commands 



Here's the complete list of commands the simulator knows. The keyboard key you hit is: 
{Q}, and the name of the command is: <QUIT>. 
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Simulator commands 

{q} <QUIT> 
{I} <LOAD> 



{m} <MENU> 



Exits the simulator. 

The command is a lower case "L", not a "1". Load fixed 

memory with object code produced by the assembler. 

The object code files are in Motorola S-Record format 

(compatible with EPROM programmers). The command 

will ask for a filename. 

I ntended to be a useful menu of simulator command, 

but I never got around to it. 



Hardware reset commands 



{p} <POWER UP RESET> 



{h} <RESET> 



Asserts the PURST control signal. This is a power-up 
reset signal that is supposed to be automatically 
generated when the AGC initially powers on. 
Asserts the GENRST control signal. 



Clock controls 

{Fl} <CLK> 
{F2} <MCLK> 



{F4} <FCLK> 



Single-step the AGC clock. Only works when MCLK <F2> 
has been selected. 

Asserts the MCLK control signal. Disables the free- 
running 1MHz clock. When MCLK is selected, you can 
single-step the clock by by pressing <F1>. 
Asserts the FCLK control signal. Causes the simulator 
clock to free-run at 1MHz. This is the normal operational 
mode. 



Time pulse generator (TPG) controls 

{r} <RUN> 

{s} <STEP> 
{n} <INST> 



Toggles between the "run" (1) and "step" (0) modes. 
"Run" makes the AGC free-run (the normal mode). 
"Step" single-steps the AGC, either by instruction or by 
instruction subsequence. 

Steps the AGC to the next instruction or instruction 
sequence when <R> is toggled to the step mode. 
Toggles whether the AGC steps by instruction (1) or 
instruction subsequence (0). Each instruction contains 
one or more subsequences. Each subsequence is 12 
steps or timing pulses long. 



Debugger commands 

{e} <EXAMINE> 



{y} <WATCH> 



{b} <BREAKPOINT> 



{d} <DISPLAY> 
{f} <DEBUG> 



Examines the contents of memory. The command asks 

for a starting address and then displays the memory 

data at that address and following locations. 

Halts the AGC when any instruction changes a watched 

memory location. The command asks for a memory 

address (CADR) to watch. 

Toggles a breakpoint on/off. When the breakpoint is on, 

it halts the AGC when instruction execution hits that 

address. 

Displays or refreshes the standard AGC register display. 

Displays the currently executing AGC source code. You 

can single step with this display and watch the AGC 

move through the source code. Very useful for 

debugging. A ">" arrow shows the next instruction to be 

executed in the listing. 



Scaler controls 

{z} <F17> 



{x} <F13> 



{C} <TOGGLE SCALER> 



Manually generates the <F17> scaler pulse. Useful for 

testing when the scaler has been toggled to off <C>, or 

when you're single-stepping the AGC. 

Manually generates the <F13> scaler pulse. Useful for 

testing when the scaler has been toggled to off <C>, or 

when you're single-stepping the AGC. 

Toggle the scaler on/off. When the scaler is off, the F13 

and F17 signals are not automatically generated. 



Priority counter controls 

{[} <-CNTR> 



{]} 



<+CNTR> 



Manually assert a minus input to a prority counter cell. 
The command will ask for the cell number. 
Manually assert a plus input to a priority counter cell. 
The command will ask for the cell number. 



I nterrupt controls 



{i} 



<INTERRUPT> 



Generates an AGC interrupt. The command will ask you 
for an interrupt number (1-5). 



Other AGC controls 

{a} <STANDBY ALLOWED> 



{;} 



<CLEAR PARITY ALARM> 



The standby allowed switch lets the AGC software put 
the AGC in a standby mode. 

Clears the parity alarm. The alarm is generated when an 
error occurs (odd parity) in memory. 



DSKY controls 



{/} 


<VERB> 


{*} 


<NOUN> 


{-} 


<MINUS> 


{ + } 


<PLUS> 


{.} 


<CLEAR> 


m 


<ENTER> 


{g} 


<KEY REL> 



The VERB key on the DSKY display. 

The NOUN key on the DSKY display. 

The MINUS key on the DSKY display. 

The PLUS key on the DSKY display. 

The CLEAR key on the DSKY display. 

The ENTER key on the DSKY display. 

The KEY RELEASE key on the DSKY display. 



Simulator demonstration 

Here's the simulator, demonstrating some COLOSSUS 249 flight software functions. This is 
the same scenario I ran in Part 1 using my hardware AGC. 

I nitialization 

At startup, the simulator loads the microinstructions from the EPROM tables. These are the 
same tables I eventually used to program the hardware AGC EPROMs. 



Reading 
Reading 
Reading 
Reading 
Reading 
Reading 
Reading 



EPROM 
EPROM 
EPROM 
EPROM 
EPROM 
EPROM 
EPROM 



CPMl_8.hex 

CPM9_16.hex 

CPM17_24.hex 

CPM25_32.hex 

CPM33_40.hex 

CPM41_48.hex 

CPM49 56. hex 



The simulator is now initialized 
and ready for commands. 



AGC4 SIMULATOR 
TP: STBY F17 


1.16 
:0 


F13:0 


F10:0 


SCL:000000 










STA:0 STE 


:0 


BR1:0 


BR2:0 


SNI 


: CI : LOOPCTR 







RPCELL: 00000 


INH1 


INH 


UpCELL:000 DnCELL:000 


SQ:00 TC 


TC0 




CP : GENRST 




















S: 0000 


G:000000 


P:000000 


(r)RUN :0 (p) 


PDRST 


1 (F2,F4)FCLK:0 




RBU:000000 


WBU: 000000 


P2:0 




(s)STEP:0 










B:000000 




CADR: 000000 


(n) INST:1 


PALM 


[ ] 






X:00O000 


Y:000000 


U:000000 


( a ) SA : 








00 


A:000000 


15 


BANK 


00 


36 


TIME1:000000 


53 


OPT 


Y:000000 


01 


Q:000000 


16 


RELINT 




37 


TIME3: 000000 


54 


TRKR 


X:000000 


02 


Z:000000 


17 


INHINT 




10 


TIME4:000000 


55 


TRKR 


Y:000000 


03 


LP:000000 


20 


CYR 


000000 


41 


UPLINK:000000 


56 


TRKR 


Z:000000 


04 


INO:000000 


21 


SR 


000000 


42 


OUTCR1: 000000 








05 


INI: 000000 


22 


CYL 


000000 


43 


OUTCR2: 000000 


CF 


[ 1 


KR [ ] : PA 


06 


IN2: 000000 


23 


SL 


000000 


44 


PIPA X:000000 








07 


IN3:000000 


24 


ZROPT 


000000 


45 


PIPA Y:000000 


A 


[ ] 


M: [ ] 


10 


OUTO: 


25 


BRUPT 


000000 


46 


PIPA Z:000000 


V 


[ ] 


N: [ ] 


11 


OUT1:000000 


26 


ARUPT 


000000 


47 


CDU X:000000 


Rl 


[ 




12 


OUT2: 000000 


27 


QRDPT 


000000 


50 


CDU Y:000000 


R2 


[ 




13 


OUT3:000000 
OUT4: 000000 


34 
35 


OVCTR 


000000 


51 
52 


CDU Z:000000 
OPT X:000000 


R3 


[ 




14 


TIME2 


000000 





<LOAD> 

The simulator asks, and I enter the name of object files containing the COLOSSUS flight 
software. 



<POWER UP RESET> <RUN> 
<FCLK> 

I tell the simulator to start 
running, and enable the free- 
running clock. The AGC starts 
running in real-time with the 1MHz 
clock. The DSKY shows major 
mode 00 (POO). 



AGC4 SIMULATOR 1.16 

TP: TP11 F17:0 F13:2 F10:0 SCL:174274 

STA:0 STB:1 BR1:0 BR2 : 1 SNI : CI:1 LOOPCTR:0 
RPCELL: 00000 INH1 : INH:0 UpCELL:000 DnCELL:000 SO: 01 CCS 
CP:NISQ RG WB RSC 





S 


3516 


G:043514 


P:103514 


(r)RUN :1 (p) 


PURST 


(F 


~l, I 


"4 ) FCLK 




RBU 


003514 


WBU: 003514 


P2:l 




(s)STEP:0 












B 


177777 




CADR: 003516 


(n)INST:l 


PALM 


[*: 








X 


000000 


Y:177776 


U:177777 


( a ) SA : 










00 


A 


000000 


15 


BANK 


11 


36 


TIME1: 004372 


53 


OPT 


Y 


000001 


01 


0. 


003517 


16 


RELINT 




37 


TIME3:112321 


54 


TRKR 


X 


100000 


02 


z 


003517 


17 


INHINT 




40 


TIME4:137766 


55 


TRKR 


Y 


100000 


03 


LP 


oooooo 


20 


CYR 


177764 


41 


UPLINK:100000 


56 


TRKR 


Z 


100000 


04 


IN0 


000000 


21 


SR 


100012 


42 


OUTCR1: 100000 










5 


INI 


000000 


22 


CYL 


oooooo 


43 


OUTCR2: 100000 


CF 


[ 1 


KR 


06 


IN2 


oooooo 


23 


SL 


oooooo 


4 4 


PIPA X:100000 










07 


IN3 


oooooo 


24 


ZRUPT 


003517 


45 


PIPA Y: 100000 


A 


[ 1 


M 


[00] 


10 


OUTO 




25 


BRUPT 


103514 


46 


PIPA Z:100000 


V 


[ ] 


N 


[ ] 


11 


OUT1 


000200 


26 


ARUPT 


103517 


47 


CDU X:100000 


Rl 


[ 






12 


OUT2 


oooooo 


27 


QRUPT 


102040 


50 


CDU Y: 100000 


R2 


t 






13 


OUT 3 


oooooo 


34 


OVCTR 


oooooo 


51 


CDU Z:100000 


R3 


[ 






14 


OUT 4 


oooooo 


35 


TIME2 


100000 


52 


OPT X:100000 











AGC4 SIMULATOR 1.16 



Display elapsed time from 
the CM clock 

<VERB> <0> <6> <NOUN> <3> 
<6> <ENTER> 



TP: TP3 



F17:0 F13:0 F10:2 SCL:027604 



STA:0 STB:0 BR1 : BR2 : 1 SNI:0 CI:0 LOOPCTR:0 
RPCELL:00000 INH1:0 INH : UpCELL: 000 DnCELL:000 SQ:01 CCS 
CP:WG WGn 



S: 0307 G:050307 P:110307 (r)RDN 

RBU:000000 WBU:000000 P2 : 1 (s)STEP 

B:010307 CADR:000307 (n) INST 

X:000000 Y:003515 U:003515 (a)SA 



(p)PURST:0 (F2,F4) FCLK:0 
PALM: [*] 



A:000000 

Q:003517 

Z:003515 

LP:00000O 

IN0: 000034 

IN1:000000 

IN2:000000 

IN3:000000 

10 OOT0: 

11 OUT1: 000200 

12 OUT2: 000000 

13 OUT3: 000000 

14 OUT4: 000000 



15 BANK: 07 

16 RELINT: 

17 INHINT: 



20 
21 
22 
23 
24 
25 
26 
27 
34 
35 



CYR:177767 
SR:100005 

CYL:077765 
SL:000000 
ZRUPT:003515 
BRUPT: 110307 
AROPT: 103517 
QRUPT:102040 
OVCTR: 056046 
TIME2: 100000 



36 TIME1: 011510 

37 TIME3:117437 

40 TIME4: 137774 

41 UPLINK:100000 

42 OUTCR1: 100000 

43 OUTCR2: 100000 

44 PIPA X:100000 

45 PIPA Y:100000 

46 PIPA Z:100000 

47 CDU X: 100000 

50 CDU Y:100000 

51 CDU Z:100000 

52 OPT X:100000 



53 OPT 

54 TRKR 

55 TRKR 
5 6 TRKR 



Y:000001 
X:100000 
Y:100000 
Z:100000 



CF : [ ] : KR [ ] : PA 



[ ] 
[06] 



[ + 



M: [00] 

N: [36] 

00000 ] 

00000 ] 

04442 ] 



Test display lights 

<VERB> <3> <5> <ENTER> 

All DSKY lamps and display 
segments illuminate for 5 sec; 
after 5 sec, the DSKY lamps 
extinguish. 



AGC4 SIMULATOR 1.16 

TP: TP3 F17:2 F13:0 F10:2 SCL:303260 

STA:0 STB:0 BR1 : BR2 : 1 SNI : CI:0 LOOPCTR:0 
RPCELL:00000 INH1:0 INH:0 UpCELL:000 DnCELL:000 SQ:01 CCS 
CP:WG WGn 
S: 0307 G:050307 P:110307 
RBU:000000 WBU:000000 P2 : 1 

B:010307 CADR:000307 

X:000000 Y:003515 U:003515 



00 
01 
02 
03 
04 
05 
06 
07 



A: 

Q: 

Z: 

LP: 

IN0: 

INI: 

IN2: 

IN3: 

10 OUT0: 

11 OUT1: 

12 OUT2: 

13 OUT3: 

14 OUT4: 



000000 
003517 
003515 
000000 
000034 
000000 
000000 
000000 

000724 
000000 
000000 
000000 



15 BANK 

16 RELINT 

17 INHINT 
20 CYR 

SR 
CYL 

SL 
ZRUPT 
BRUPT 
ARUPT 
QRUPT 
OVCTR 
TIME2 



21 
22 
23 
24 
25 
26 
27 
34 
35 



:06 



177767 
100011 
077765 
000000 
003517 
103514 
103517 
102040 
056046 
100000 



(r)RUN 
(s) STEP 
(n)INST 
(a) SA 


1 (P) 



1 




PURST 
PALM 


( F2 , F4 ) FCLK : 
■[*] 


TIME1: 

TIME3: 

TIME4 : 

UPLINK: 


[14036 
L37444 
337773 
[00000 


53 
54 
55 
56 


OPT Y:000001 
TRKR X:100000 
TRKR Y:100000 
TRKR Z:100000 



36 

37 

40 
41 

42 OUTCR1: 100000 

43 OUTCR2: 100000 

44 PIPA X: 100000 

45 PIPA Y: 100000 

46 PIPA Z:100000 

47 CDU X:100000 

50 CDU Y:100000 

51 CDU Z:100000 

52 OPT X:100000 



[* ] M: [8! 
[88] N: [I! 
[ +88888 
[ +88888 
[ +88888 



Load component 1 for 
dataset at octal address 
50 with octal 123 

<VERB> <2> <1> <NOUN> <0> 
<1> <ENTER> 

Verb/noun display flashes: waiting 
for address. Flashing is indicated 
by the asterisk to the right of the 
NOUN display. 



AGC4 SIMULATOR 1.16 

TP: TP3 F17:2 F13:2 
STA:0 STB:0 BR1 : 
RPCELL:00000 INH1 : INH: 
CP:WG WGn 



F10:0 SCL:236014 
BR2:1 SNI:0 CI : 1 LOOPCTR:0 
UpCELL: 000 DnCELL:000 SQ:00 





S 


3514 


G:043514 P:103514 


(r)RUN 


1 (p) PURST 


(F2,F4) FCLK:0 




RBU 


000000 


WBU: 000000 P2:l 




(s)STEP 











B 


003514 




CADR: 003514 


(n)INST 


1 


PALM 


[*] 




X 


000000 


Y:003514 U:003515 


(a)SA 









00 


A 


000000 


15 


BANK: 06 


36 


TIME1:117413 


53 


OPT Y:000001 


01 


0. 


003517 


16 


RELINT: 


37 


TIME3: 113450 


54 


TRKR X: 100000 


02 


Z 


003517 


17 


INHINT: 


40 


TIME4: 137771 


55 


TRKR Y:100000 


03 


LP 


000000 


20 


CYR: 177767 


41 


UPLINK: 100000 


56 


TRKR Z:100000 


04 


IN0 


000034 


21 


SR:100000 


42 


OUTCR1: 100000 






05 


INI 


000000 


22 


CYL:077765 


43 


OUTCR2: 100000 


CF 


[ ] :KR [ ] :PA 


06 


IN2 


000000 


23 


SL:000000 


44 


PIPA X: 100000 






07 


IN3 


000000 


24 


ZRUPT: 003517 


45 


PIPA Y:100000 


A 


[ ] M: [00] 


10 


ODT0 




25 


BRUPT:103514 


46 


PIPA Z:100000 


V 


[21] N: [01] * 


11 


OUT1 


000200 


26 


ARUPT: 103517 


47 


CDU X:100000 


Rl 


[ +88888 ] 


12 


OUT2 


000000 


27 


QRUPT: 102040 


50 


CDU Y:100000 


R2 


[ +88888 ] 


13 


OUT3 


000000 


34 


OVCTR: 056046 


51 


CDU Z:100000 


R3 


[ ] 


14 


OUT 4 


000000 


35 


TIME2:100000 


52 


OPT X: 


[00000 







<5> <0> <ENTER> 

Verb/noun display flash continues: 
waiting for data. 



AGC4 SIMULATOR 
TP: TP3 F17 


1.16 

:0 


F13:0 F10:0 


SCI 


: 162570 








STA:0 STB 


:0 


BR1 : BR2 : 1 


SNI 


: CI : LOOPCTR 





RPCELL: 00000 


INH1 


INH:0 OpCELL:000 DnCELL:000 


SQ:01 


CCS CCS 




CP:WG WGn 
















S: 0307 


G:0SO3O7 P:110307 


(r)RUN :1 (p) 


PURST 


( F2 , F4 ) FCLK 




RBU:000000 


WBU: 000000 P2:l 




(s) STEP:0 








B:010307 




CADR: 000307 


(n) INST:1 


PALM 


1*1 




X:000000 


Y:003515 0:003515 


(a)SA :0 






00 


A:000000 


15 


BANK: 06 


36 


TIME1: 122365 


53 


OPT Y:000001 


01 


Q:003517 


16 


RELINT : 


37 


TIME3:116422 


54 


TRKR X: 100000 


02 


Z:003515 


17 


INHINT: 


40 


TIME4: 137766 


55 


TRKR Y: 100000 


03 


LP:000000 


20 


CYR:177767 


41 


OPLINK: 100000 


56 


TRKR Z: 100000 


04 


IN0:000034 


21 


SR:100002 


42 


OUTCR1: 100000 






05 


INI: 000000 


22 


CYL:077727 


43 


OUTCR2: 100000 


CF 


[ ] : KR [ ] : 


06 


IN2:000000 


23 


SL:000000 


44 


PIPA X: 100000 






07 


IN3:000000 


24 


ZRDPT: 003517 


45 


PIPA Y:100000 


A 


[ ] M: [00] 


10 


OUTO: 


25 


BRUPT: 103514 


46 


PIPA Z: 100000 


V 


[21] N: [01] * 


11 


OUT1:000200 


26 


ARUPT: 103517 


47 


CDU X: 100000 


Rl 


[ ] 


12 


OUT2: 000000 


27 


QROPT: 102040 


50 


CDU Y:100000 


R2 


[ +88888 ] 


13 


OUT3:000000 


34 


OVCTR:056046 


51 


CDO Z:100000 


R3 


[ 50 ] 


14 


OUT4:000000 


35 


TIME2:100000 


52 


OPT X:100000 







<1> <2> <3> <ENTER> 

Octal word from Rl is loaded at 
address 50. 



AGC4 SIMULATOR 1.16 

TP: TP7 F17:2 F13:0 
STA:0 STB:1 BR1:0 
RPCELL:00000 INH1 : INH 
CP:RG WB WP RSC 
S: 3516 G:043514 
RBU:003514 WBU:003514 
B:000000 
X:000000 



F10:2 SCL:321004 
BR2:1 SNI:0 CI:1 LOOPCTR: 
UpCELL:000 DnCELL:000 SQ: 01 



00 
01 
02 
03 
04 
05 
06 
07 



A: 
Q: 
Z: 

LP: 
IN0: 
INI: 
IN2: 
IN3: 

10 OUT0: 

11 OUT1: 

12 OUT2: 

13 OUT3: 

14 OUT4 : 



177776 
003517 
003517 
000000 
000034 
000000 
000000 
000000 

000200 
000000 
000000 
000000 



P:100000 (r)RON 

P2:l (a) STEP 

CADR: 003516 (n) INST 

Y:177776 0:177777 (a) SA 



(p)PORST:0 (F2,F4)FCLK:0 
PALM : [ * ] 



15 BANK: 

16 RELINT: 

17 INHINT: 



20 
21 
22 
23 
24 
25 
26 
27 
34 
35 



CYR 

SR 
CYL 

SL 
ZRUPT 
BROPT 
ARUPT 
QROPT 
OVCTR 
TIME2 



177776 
100006 
077657 
000000 
003517 
103514 
103517 
102040 
056046 
100000 



36 TIME1:124044 

37 TIME3:020101 

40 TIME4: 037770 

41 UPLINK: 100000 

42 OUTCR1: 100000 

43 OUTCR2: 100000 

44 PIPA X: 100000 

45 PIPA Y:100000 
PIPA Z: 100000 

CDU X: 100000 
CDU Y: 100123 
CDU Z:100000 
OPT X: 100000 



46 
47 
50 
51 
52 



OPT Y:000001 
TRKR X: 100000 



TRKR 
TRKR 



Y:100000 
Z:100000 



CF: [ 



] M: [00] 

] N: [01] 

123 ] 



Start a monitor program 
to continuously display 
elapsed time from the CM 
clock 

<VERB> <1> <6> <NOUN> <3> 
<6> <ENTER> 



AGC4 SIMULATOR 1.16 

TP: TP11 F17:0 F13:0 F10:2 SCL:165130 

STA:0 STB:0 BR1 : BR2 : SNI : CI:1 LOOPCTR : 
RPCELL:00000 INH1 : INH : 1 UpCELL:000 DnCELL:000 SQ:02 INDEX NDX0 
CP:ST1 WE 



S: 0337 G:040300 P:100300 (r)RUN 

RBU:000000 WBD:000000 P2 : 1 (s)STEP 

B: 000300 CADR: 000337 (n) INST 

X:000000 Y:003425 U:003426 (a)SA 



(p)PURST:0 (F2,F4)FCLK:0 
PALM: [*] 



00 
01 
02 
03 
04 
05 
06 
07 



A: 
Q: 

Z: 

LP: 
IN0: 
INI: 
IN2: 
IN3: 

10 OUTO: 

11 OUT1: 

12 OUT2: 

13 OUT3: 

14 OUT4: 



000000 
003422 
003426 
000003 
000034 
000000 
000000 
000000 

000201 
000000 

oooooo 

000000 



1 5 BANK ! 

16 RELINT: 

17 INHINT: 
20 CYR: 

SR: 
CYL: 

SL: 
ZRUPT: 
BRUPT: 
ARUPT; 
QRUPT : 
OVCTR: 
TIME2 : 



21 
22 
23 
24 
25 
26 
27 
34 
35 



07 



155757 
100011 
077765 
000000 
003515 
110307 
103517 
102040 
056046 
100000 



36 TIME1-.126367 

37 TIME3:137645 

40 TIME4:037775 

41 UPLINK: 100000 

42 OUTCR1: 100000 

43 OUTCR2:100O00 

44 PIPA X: 100000 

45 PIPA Y: 100000 

46 PIPA Z:10O000 

47 CDU X:100000 

50 CDU Y:100123 

51 CDU Z:100000 

52 OPT X:100000 



OPT Y: 000001 
TRKR X: 100000 
TRKR Y: 100000 
TRKR Z-.1000OO 



CF : [ ] : KR [ ] : PA 



[ 
[16] 



M: [00] 
N: [36] 
+00000 ] 
[ +00001 ] 
[ +05423 ] 



Display component 1 of 
dataset at octal address 
50 

<VERB> <0> <1> 

The key rel light flashes because 
the CM clock monitor program has 
been suspended. This is indicated 
by an asterisk in the KR display 
above the DSKY. 



TP: TP11 F17 


1.1D 

:2 


F13: 


F10:2 


SCL:247710 








STA 


STB 


:2 


BR1:0 


BR2:0 


SNJ 


: CI : 1 LOOPCTR 





RPCELL 


00000 


INH1 


INH 


1 UpCELL:000 DnCELL:000 


SQ:l; 


TS STD2 




CP 


NISQ 


















s 


2774 


G:032050 


P:032050 


(r)RUN 


1 (P) 


PURST 


(F2,F4)FCLK:0 




RBU 


000000 


WBU:000000 


P2:0 




(3) STEP 











B 


032050 




CADR: 002774 


(n)INST 


1 


PALM 


[*] 




X 


000000 


Y:002774 


U:002775 


(a) as 









00 


a 


000111 


lb 


BANK 


06 


36 


TIME1: 030020 


53 


OPT Y: 000001 


01 


Q 


002765 


16 


RELINT 




37 


TIME3:037641 


54 


TRKR X: 100000 


02 


z 


002775 


17 


INHINT 




40 


TIME4:137771 


55 


TRKR Y: 100000 


03 


LP 


000000 


20 


CYR 


155757 


41 


UPLINK: 100000 


56 


TRKR Z:100000 


04 


mo 


000001 


21 


SR 


100011 


42 


OUTCR1: 100000 






05 


INI 


000000 


22 


CYL 


077765 


43 


OUTCR2: 100000 


CF 


[ * ] : KR [ ] : PA 


06 


IN2 


000000 


23 


SL 


000000 


44 


PIPA X:100000 






07 


IN3 


000000 


24 


ZRDPT 


003517 


45 


PIPA Y:100000 


A 


[ *] M: [00] 


10 


ODT0 




25 


BRUPT 


103514 


46 


PIPA Z:100000 


V 


[01] N: [36] 


11 


OUT1 


000221 


26 


ARUPT 


103517 


47 


CDU X:100000 


Rl 


[ +00000 ] 


12 


OUT 2 


000000 


27 


QRUPT 


102040 


50 


CDU Y: 100123 


R2 


[ +00001 ] 


13 


OUT3 


000000 


34 


OVCTR 


056046 


51 


CDU Z: 100000 


R3 


[ +05762 ] 


14 


OUT 4 


000000 


35 


TIME2 


100000 


52 


OPT X: 


L00000 







<NOUN> <0> <1> <ENTER> 

Verb/noun display flashes: waiting 
for address. 



AGC4 SIMULATOR 1.16 

TP: TP11 F17:0 F13:0 F10:2 SCL:125100 

STA:0 STB:1 BR1 : BR2 : 1 SNI:0 CI : 1 LOOPCTR :0 
RPCELL:00000 INH1 : INH:0 UpCELL:000 DnCELL:000 SQ:01 
CP:NISQ RG WB RSC 





S 


3516 


G:043514 


P:10351< 




(r)RUN 


:1 (P) 


PURST 


(F2,F4) FCLK:0 




RBU 


003514 


WBU: 003514 


P2:l 




(s) STEP:0 








B 


177777 




CADR: 003516 


(n)INST:l 


PALM 


[*] 




X 


000000 


Y:177776 


U:17777' 




(a)SA 


:0 






00 


A 


000000 


15 


BANK 


06 


36 


TIME1 


131747 


53 


OPT Y: 000001 


01 


Q 


003517 


16 


RELINT 




37 


TIME3 


037731 


54 


TRKR X: 100000 


02 


Z 


003517 


17 


INHINT 




40 


TIME 4 


137772 


55 


TRKR Y: 100000 


03 


LP 


000000 


20 


CYR 


155757 


41 


UPLINK 


100000 


56 


TRKR Z:100000 


04 


INO 


000034 


21 


SR 


100000 


42 


OUTCR1 


100000 






05 


INI 


000000 


22 


CYL 


077765 


43 


OUTCR2 


100000 


CF 


( * ] : KR [ ] : PA 


06 


IN2 


000000 


23 


SL 


000000 


44 


PIPA X 


100000 






07 


IN3 


000000 


24 


ZRDPT 


003517 


45 


PIPA Y 


100000 


A 


[ ] Ml [00] 


10 


OUTO 




25 


BRUPT 


103514 


46 


PIPA Z 


100000 


V 


[01] N: [01] * 


11 


OUT1 


000220 


26 


ARUPT 


103517 


47 


CDU X 


100000 


Rl 


[ +00000 ] 


12 


OUT2 


000000 


27 


QRUPT 


102040 


50 


CDU Y 


100123 


R2 


[ +00001 ] 


13 


OUT3 


000000 


34 


OVCTR 


056046 


51 


CDU Z 


100000 


R3 


[ ] 


14 


OUT4 


000000 


35 


TIME2 


100000 


52 


OPT X 


100000 







<5> <0> <ENTER> 

Octal word from address 50 is 
displayed in Rl. 



AGC4 SIMULATOR 1.16 

TP: TP7 F17:0 F13:2 F10:0 SCL:070374 

STA:0 STB: 2 BR1 : BR2 : SNI : CI : 1 LOOPCTR: 
RPCELL:00000 INH1:0 INH : 1 UpCELL:000 DnCELL:000 SQ:03 XCH 
CP:RG WB WP RSC 
S: 3425 G:060337 P:100000 (r)RUN :1 
RBU:020337 WBU:020337 P2:0 (s)STEP:0 
B:000000 CADR:003425 (n)TNST:l 

X:000000 Y:003425 U:003426 (a)SA :0 



STD2 
p)PURST:0 (F2,F4)FCLK:0 
PALM: [*] 



00 
01 
02 
03 
04 
05 
06 
07 



A 

Q 

Z 

LP 

INO 

INI 

IN2 

IN3 



10 OUTO: 

11 OUT1: 

12 OUT2: 

13 OUT3: 

14 OUT4: 



000000 
003422 
003426 
000000 
000034 
000000 
000000 
000000 

000221 
000000 
000000 
000000 



15 BANK 

16 RELINT 

17 INHINT 



2 
21 
22 
23 
24 
25 
26 
27 
34 
35 



CYR: 
SR: 

CYL: 
SL: 
ZRUPT : 
BRUPT : 
ARUPT : 
QRUPT: 
OVCTR: 
TIMF2 



06 



177776 
100005 
100246 
000000 
003517 
103514 
103517 
102040 
056046 
100000 



TIME1: 033130 

TIME3:037644 

TIME4: 137774 

UPLINK: 100000 

OUTCR1: 100000 

OUTCR2: 100000 

PIPA X: 100000 

PIPA Y:100000 

PIPA Z:100000 

CDU X: 100000 

CDU Y: 100123 

CDU Z: 100000 

OPT X:100000 



OPT Y:000001 
TRKR X: 100000 
TRKR Y:100000 
TRKR Z:100000 



CF: [ *] :KR [ ] :PA 



[ *] M: [00] 
[01] N: [01] 
[ 00123 ] 
[ +00001 ] 
[ 50 1 



I ncrement the address 

<NOUN> <1> <5> <ENTER> 

Octal word from address 51 is 
displayed in Rl, address in R3. 



AGC4 SIMULATOR 1.16 

TP- TP7 F17:2 F13:2 F10:2 SCL:233304 

STA:0 STB:0 BR1 : BR2 : 1 SNI : CI:1 LOOPCTRtO 
RPCELL: 00000 INH1:0 INH:0 UpCELL:000 DnCELL:000 SQ:00 
CP:RG WB WP RSC 





S 


3514 


G:050307 P:103514 


(r)RUN 


1 (P) 


PURST 


(F2,F4)FCLK:0 




RBU 


010307 


WBU:O10307 P2 : 1 




(s)STEP 











B 


003514 




CADR: 003514 


(n) INST 


1 


PALM 


[*] 




X 


000000 


Y:003514 U:003515 


(a)SA 









00 


A 


000000 


15 


BANK : 6 


36 


TIME1: 100012 


53 


OPT Y:000OOl 


01 


Q 


003517 


16 


RELINT: 


37 


TIME3:137771 


54 


TRKR X: 100000 


02 


Z 


003517 


17 


INHINT: 


40 


TIME4:137766 


55 


TRKR Y:100000 


03 
04 


LP 
IN0 


000000 
000034 


20 


CYR-.077777 


41 


UPLINK: 100000 


56 


TRKR Z: 100000 


21 


SR:100005 


42 


OUTCR1: 100000 






05 


INI 


000000 


22 


CYL:100000 


43 


OUTCR2: 100000 


CF 


[ * J : KR [ ] : PA 


06 


IN2 


000000 


23 


SL:000000 


44 


PIPA X:100000 






07 


IN 3 


000000 


24 


ZRUPT:003517 


45 


PIPA Y: 100000 


A 


[ ] M: [00] 


10 


OOT0 




25 


BRUPT-.103514 


46 


PIPA Z:100000 


V 


[01] N: [15] 


11 


OUT1 


000220 


26 


ARUPT: 103517 


47 


CDU X:100000 


Rl 


[ 00000 ] 


12 


OUT 2 


000000 


27 


QRUPT: 102040 


50 


CDU Y: 100123 


R2 


[ +00001 ] 


13 


OUT3 


000000 


34 


OVCTR:056046 


51 


CDU Z:100000 


R3 


[ 00051 ] 


14 


OUT 4 


000000 


35 


TIME2:000001 


52 


OPT X: 


100000 







<ENTER> 

Octal word from address 52 is 
displayed in Rl, address in R3. 



AGC4 SIMULATOR 1.16 

TP: TP3 F17:0 F13:0 

STA:0 STB:0 BR1 : 

RPCELL: 00000 INH1 : INH 

CP:WG WGn 

S: 0307 G:050307 

RBU:000000 WBU:000000 

B:010307 CADR:000307 

X:000000 Y:003515 U:003515 



F10:2 SCL:025640 
BR2:1 SNI:0 CI:0 LOOPCTR:0 
UpCELL:000 DnCELL:000 SQ:01 



P2 



110307 
1 



(r)RUN :1 
(s)STEP:0 
(ii) INST:1 
(a)SA :0 



(p)PURST:0 (F2.F4) FCLK:0 



PALM: [*] 



00 

01 
02 
03 
04 
05 
06 
07 



A 

Q 
z 

LP 

IN0 
INI 
IN 2 
IN3 



10 OUT0: 

11 OUT1: 

12 OUT2; 

13 OUT3: 

14 OUT4: 



000000 
003517 
003515 
000000 
000034 
000000 
000000 
000000 

000220 
.000000 

000000 
:000000 



1 5 BANK : 

16 RELINT: 

17 INHINT: 
CYR: 

SR: 
CYL: 
SL: 
ZRUPT : 
BRUPT : 
ARUPT: 
QRUPT ; 
OVCTR : 
TIME2: 



20 
21 
22 
23 
24 
25 
26 
27 
34 
35 



06 



077777 
100005 
100000 
000000 
003517 
103514 
103517 
102040 
056046 
000001 



36 TIME1:100707 

37 TIME3:037762 

40 TIME4:037773 

41 UPLINK:100000 

42 OUTCR1: 100000 

43 OUTCR2: 100000 

44 PIPA X:100000 

45 PIPA Y: 100000 

46 PIPA Z:100000 

47 CDU X:100000 

50 CDU Y:100123 

51 CDU Z:100000 

52 OPT X:100000 



53 


OPT Y: 000001 


54 


TRKR X.-100000 


55 


TRKR Y:100000 


56 


TRKR Z:1000OO 


CF 


[ *] :KR [ ] : 


A 


[ ] M: [00] 


V 


[01] N:[15] 


Rl 


[ 00000 ] 


R2 


[ +00001 ] 


R3 


[ 00052 ] 



Resume the CM clock 
monitor program 

<KEY REL> 

Verb 16, noun 36 reappears, along 
with the clock display. Notice that 
the KR light (asterisk) goes out. 



AGC4 SIMULATOR 1.16 

TP: TP11 F17:2 F13:2 F10 : SCL:356540 

STA:0 STB: 2 BR1:0 BR2 : SNI:0 CI : 1 LOOPCTR:0 
RPCELL:00000 INH1 : INH:0 UpCELL:000 DnCELL:000 SQ:17 
CP:NISQ 





S 


7172 


G:010000 P:010000 


(r)RUN :1 (p) 


PURST 


( F2 , F4 ) FCLK : 




RBO 


000000 


WBU:000000 P2:0 




(3)STEP:0 








B 


010000 




CADR: 013172 


(n)INST:l 


PALM 


[*1 




X 


000000 


Y:007172 0:007173 


(a)SA :0 






00 


A 


000001 


15 


BANK: 05 


36 


TIME1:102263 


53 


OPT Y: 000001 


01 


Q 


000002 


16 


RELINT: 


37 


TIME3:137706 


54 


TRKR X: 100000 


02 


Z 


007173 


17 


INHINT: 


40 


TIME4: 137777 


55 


TRKR Y:100000 


03 


LP 


140002 


20 


CYR: 177767 


41 


UPLINK: 100000 


56 


TRKR Z:100000 


04 


IN0 


000031 


21 


SR:100001 


42 


OUTCR1: 100000 






05 


INI 


000000 


22 


CYL:077765 


43 


OUTCR2: 100000 


CF 


[ ] : KR [ ] : PA 


06 


IN2 


000000 


23 


SL:000000 


44 


PIPA X:100000 






07 


IN3 


000000 


24 


ZRUPT:003564 


45 


PIPA Y: 100000 


A 


[ *] M: [00] 


10 


OUT0 




25 


BRUPT: 12057 6 


46 


PIPA Z:100000 


V 


[16] N: [36] 


11 


OUT1 


000201 


26 


ARUPT: 003561 


47 


CDU X: 100000 


Rl 


[ +00000 ] 


12 


OUT2 


000000 


27 


QRUPT: 102040 


50 


CDU Y: 100123 


R2 


[ +00002 ] 


13 


OUT 3 


000000 


34 


OVCTR: 156042 


51 


CDU Z:100000 


R3 


[ +05466 ] 


14 


OUT 4 


000000 


35 


TIME2: 000001 


52 


OPT X: 100000 







AGC4 SIMULATOR 1.16 



Terminate the CM clock 
monitor program 

<VERB> <3> <4> <ENTER> 



TI 


: TP11 F17 


:2 


F13:0 


F10:2 


SCI 


:341604 










STA:0 STB 


:0 


BR1:0 


BR2:1 


SN1 


: CI : 1 LOOPCTR 





RPCELL: 00000 


INH1 


INH 


UpCELL:000 DnCELL:000 


SQ:0C 


TC TC0 




CP:NISQ 


















S: 3514 


G:050307 


P:110307 


(r)RUN 


1 (p)PURST 


( F2 , F4 ) FCLK 




RBU:000000 


WBO: 000000 


P2:l 




(s)STEP 











B:010307 




CADR: 003514 


(n) INST 


1 


PALM 


[*] 




X:000000 


Y:003514 


U:003515 


(a)SA 









00 


A:000000 


15 


BANK 


06 


36 


TIME1:00465S 


53 


OPT Y.-000001 


01 


Q:003517 


16 


RELINT 




37 


TIME3:011643 


54 


TRKR X:100000 


02 


Z:003515 


17 


INHINT 




40 


TIME4:037775 


55 


TRKR Y: 100000 


03 


LP:000000 


20 


CYR 


155757 


41 


UPLINK:100000 


56 


TRKR Z:100000 


04 


INO:000034 


21 


SR 


100011 


42 


OUTCR1: 100000 






05 


IN1:000000 


22 


CYL 


077765 


43 


OUTCR2:100000 


CF 


[ ] :KR [ ] : 


06 


IN2:000000 


23 


SL 


000000 


44 


PIPA X:100000 






07 


IN3:000000 


24 


ZRDPT 


003517 


45 


PIPA Y: 100000 


A 


[ ] M: [00] 


10 


OUT0: 
OUT1:000200 


25 
26 


BRDPT 
ARUPT 


103514 
103517 


46 
47 


PIPA Z: 
CDU X: 


L00000 


V 

Rl 


[34] N: [36] 


11 


100000 


[ +00000 ] 


12 


OUT2: 000000 


27 


QRUPT 


102040 


50 


CDU Y:100123 


R2 


[ +00002 ] 


13 


OUT3: 000000 
OUT4:000000 


34 
35 


OVCTR 
TIME2 


056046 
000001 


51 
52 


CDU Z: 
OPT X: 


100000 


R3 


[ +05813 ] 


14 


100000 





Change major mode to 
POO 

<VERB> <3> <7> <ENTER> 

Verb/noun display flashes: 
waiting for major mode. 



AGC4 SIMULATOR 1.16 

TP: TP7 F17:0 F13:0 
STA.-O STB:1 BR1:0 
RPCELL: 00000 INH1 : INH 
CP:RG WB WP RSC 
S: 3516 G:043514 
RBU:003514 WBU:003514 
B:000000 
X:000000 



F10:0 SCL:100220 
BR2:1 SNI:0 CI:1 LOOPCTR: 
UpCELL:000 DnCELL:000 SQ:01 



P:100000 (r)RUN 

P2:l (s)STEP 

CADR:003516 (n) INST 

Y:177776 U:177777 (a)SA 



(p)PURST:0 (F2,F4)FCLK:0 
PALM: [*] 



00 


A 


177776 


15 


BANK 


06 


01 


Q 


003517 


16 


RELINT 




02 


Z 


003517 


17 


INHINT 




03 


LP 


000000 


20 


CYR 


155757 


04 


IN0 


000034 


21 


SR 


000004 


05 


INI 


000000 


22 


CYL 


077765 


06 


IN2 


000000 


23 


SL 


000000 


07 


IN3 


000000 


24 


ZRUPT 


003517 


10 


OUT0 




25 


BRUPT 


103514 


11 


OUT1 


000200 


26 


ARUPT 


103517 


12 


OUT2 


000000 


27 


QRUPT 


102040 


13 


OUT 3 


000000 


34 


OVCTR 


056046 


14 


OUT 4 


000000 


35 


TIME2 


000001 



36 TIME1: 006534 

37 TIME3: 013522 

40 TIME4:037770 

41 UPLINK:100000 

42 ODTCR1: 100000 

43 OUTCR2: 100000 

44 PIPA X:100000 

45 PIPA Y:100000 

46 PIPA Z:100000 

47 CDU X:100000 

50 CDU Y:100123 

51 CDU Z:100000 

52 OPT X: 100000 



53 
54 
55 
56 



OPT Y:000001 
TRKR X: 100000 
TRKR Y: 100000 
TRKR Z: 100000 



CF : [ ] : KR [ ] : PA 



[ ] M: [00] 
[37] N: [ ] 
[ +00000 ] 
[ +00002 ] 
[ +05813 ] 



<0> <0> <ENTER> 



AGC4 SIMULATOR 1.16 

TP: TP11 F17:2 F13:2 F10:0 SCL:352620 
STA:0 STB:0 BR1:0 BR2 : 1 SNI : CI: 



LOOPCTR: 



RPCELL:00000 INH1:0 INH:0 UpCELL:000 DnCELL:0O0 SQ:01 CCS 
CP:RU ST1 WZ WE 
S: 0307 G:040000 P:100000 (r)RUN 
RBU: 003516 WBU: 003516 P2 : 1 (s)STEP 
B:000000 CADR:000307 (n) INST 

X:000001 Y:003515 U:003516 (a)SA 



CCS0 



(p)PURST:0 (F2,F4)FCLK:0 
PALM: [*] 



00 


A 


177776 


15 


BANK 


11 


01 


Q 


003517 


16 


RELINT 




02 


z 


003515 


17 


INHINT 




03 


LP 


000000 


20 


CYR 


177764 


04 


IN0 


000034 


21 


SR 


100012 


05 


INI 


000000 


22 


CYL 


077765 


06 


IN2 


000000 


23 


SL 


000000 


07 


IN3 


000000 


24 


ZRUPT 


003517 


10 


OUT0 




25 


BRUPT 


103514 


11 


OUT1 


000200 


26 


ARUPT 


103517 


12 


OUT2 


000000 


27 


QRUPT 


102040 


13 


OUT 3 


000000 


34 


OVCTR 


056046 


14 


OUT4 


000000 


35 


TIME2 


000001 



36 TIME1:010461 

37 TIME3:036721 

40 TIME4: 137765 

41 UPLINK: 100000 

42 OUTCR1: 100000 

43 OUTCR2: 100000 

44 PIPA X: 100000 

45 PIPA Y: 100000 

46 PIPA Z:100000 

47 CDU X:100000 

50 CDU Y: 100123 

51 CDU Z:100000 

52 OPT X: 100000 



OPT Y:000001 
TRKR X:100000 
TRKR Y: 100000 
TRKR Z: 100000 



CF: [ ] :KR [ ] :PA 



A 


[ ] M: [00] 


V 

Rl 


[ ] N: [ ] 

[ 1 


R2 
R3 


[ 1 
[ 1 



The 20-or-so 
subsystems in the AGC 
are represented by C + + 
classes. There are some 
additional classes for 
registers and other 
things. 

I wanted a simulator 
architecture I could 
develop quickly that 
would easily and directly 
map to a hardware logic 
design. I went through 
16 versions of the 
simulator; they're 
discussed at the top of 
the AGCMain.cpp file 
which contains, 
unsurprisingly, the 
main(). 

If you want to run the 
simulator, you can 
compile it from the 
source code given here. To 
AGC software (parts 8 and 
code to generate these tab 




AG£E>LCdc£ 

-n-02. 



run it, you'll also need the assembler (discussed in part 6), some 
9), and the EPROM tables in Motorola S-Record format. The C + + 
les is given at the end of part 2. 



Here it is, warts and all... 



Main (AGCMain.cpp) 

* AGC4 (Apollo Guidance Computer) BLOCK I Simulator 

* 

* AUTHOR: John Pultorak 

* DATE: 07/29/02 

* FILE : AGCmain . cpp 
* 

* VERSIONS : 

* 1.0 — initial version. 

* 1.1 — fixed minor bugs; passed automated test and checkout programs: 

* tecol .asm, teco2 .asm, and teco3.asm to test basic instructions, 

* extended instructions, and editing registers. 

* 1.2 — decomposed architecture into subsystems; fixed minor bug in DSKY 

* keyboard logic (not tested in current teco* . asm suite). 

* Implemented scaler pulses FIT, F13, F10. Tied scaler output to 

* involuntary counters and interrupts. Implemented counter overflow 

* logic and tied it to interrupts and other counters . Added simple 

* set/clear breakpoint . Fixed a bug in bank addressing. 

* 1.3 - fixed bugs in the DSKY. Added 14-bit effective address (CADR) to the 

* simulator display output . Inhibited interrupts when the operator 

* single-steps the AGC. 

* 1.4 — performance enhancements . Recoded the control pulse execution code 

* for better simulator performance. Also changed the main loop so it 

* polls the keyboard and system clock less often for better performance. 

* 1.5- reversed the addresses of TIME1 and TIME2 so TIME2 occurs first . 

* This is the way its done in Block II so that a common routine (READLO) 

* can be used to read the double word for AGC time. 

* 1.6 - added indicators for 'CHECK FAIL' and 'KEY RELS ' . Mapped them to 0UT1, 

* bits 5 and 7. Added a function to display the current location in 

* the source code list file using the current CADR. 

* 1.7 — increased length of 'examine' function display. Any changes in DSKY now 

* force the simulator to update the display immediately. Added a 'watch' 

* function that looks for changes in a memory location and halts the 

* AGC. Added the 'UPTL', ' COMP ' , and "PROG ALM" lights to the DSKY. 

* 1.8 — started reorganizing the simulator in preparation for H/W logic design. 

* Eliminated slow (1Hz) clock capability. Removed BUS REQUEST feature. 

* Eliminated SWRST switch. 

* 1.9 — eliminated the inclusive 'OR' of the output for all registers onto the 

* R/W bus. The real AGC OR'ed all register output onto the bus; normally 

* only one register was enabled at a time, but for some functions several 

* were simultaneously enabled to take advantage of the 'OR' function (i.e. : 

* for the MASK instruction) . The updated logic will use tristate outputs 

* to the bus except for the few places where the 'OR' function is actually 

* needed. Moved the parity bit out of the G register into a 1-bit G15 

* register. This was done for convenience because the parity bit in G 

* is set independently from the rest of the register. 

* 1.10 — moved the G15 parity register from MBF to the PAR subsystem. Merged SBFWG 

* and SBEWG pulses into a single SBWG pulse. Deleted the CLG pulse for MBF 

* (not needed) . Separated the ALU read pulses from all others so they can 

* be executed last to implement the ALU inclusive OR functions. Implemented 

* separate read and write busses, linked through the ALU. Implemented test 

* parity (TP) signal in PAR; added parity alarm (PALM) FF to latch PARITY 

* ALARM indicator in PAR. 

* 1.11 — consolidated address testing signals and moved them to ADR. Moved memory 

* read/write functions from MBF to MEM. Merged EMM and FMM subsystems into 

* MEM. Fixed a bad logic bug in writeMemory ( ) that was causing the load of 

* the fixed memory to overwrite array boundaries and clobber the CPM table. 

* Added a memory bus (MEM_DATA_BUS, MEM_PARITY_BUS ) . 

* 1.12 — reduced the number of involuntary counters (CTR) from 20 to 8. Eliminated 

* the SHINC subsequence. Changed the (CTR) sequence and priority registers into 

* a single synchronization register clocked by WPCTR. Eliminated the fifth 

* interrupt (UPRUPT; INT) . Eliminated (OUT) the signal to read from output 

* register (the DSKY register) , since it was not used and did not provide 

* any useful function, anyway. Deleted register OUTO (OUT) which shadowed 

* the addressed DSKY register and did not provide any useful function. 

* Eliminated the unused logic that sets the parity bit in 0UT2 for downlink 

* telemetry. 

* 1.13 — reorganized the CPM control pulses into CPM-A, CPM-B, and CPM-C groups. 

* Added the SDV1, SMP1, and SRSM3 control pulses to CPM-A to indicate when 

* those subsequences are active; these signals are input to CPM-C. Moved the 

* ISD function into CPM-A. Fixed a minor bug causing subsequence RSM3 to be 

* displayed as RSMO . Added GENRST to clear most registers during STBY. 

* 1.14 - Moved CLISQ to TP1 to fix a problem in the hardware AGC. CLISQ was clearing 



* SNI on CLK2 at TP12, but the TPG was advancing on CLK1 which occurs after 

* CLK2, so the TPG state machine was not seeing SNI and was not moving to 

* the correct state. In this software simulation, everything advances on 

* the same pulse, so it wasn't a problem to clear SNI on TP12. Added a 

* switch to enable/disable the scaler. 

* 1.15 — Reenabled interrupts during stepping (by removing MON: :RUN) signals from 

* CPM-A and CPM-C logic) . Interrupts can be prevented by disabling the scaler. 

* Fixed a problem with INHINT1; it is supposed to prevent an interrupt 

* between instructions if there 's an overflow. It was supposed to be cleared 

* on TP12 after SNI (after a new instruction) , but was being cleared on TP12 

* after every subsequence . 

* 1.16 — Changed CPM-A to load and use EPROM tables for the control pulse matrix. The 

* EPROM tables are negative logic (0=asserted) , but this simulator expects 

* positive logic, so each word is bit— flipped when the EPROM tables load 

* during simulator initialization. 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo Guidance 

* Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh Blair— Smith, R-393, 

* MIT Instrumentation Laboratory, 1963. 
* 

* PORTABILITY: 

* Compiled with Microsoft Visual C++ 6.0 standard edition. Should be fairly 

* portable, except for some Microsoft— specific I/O and timer calls in this file. 

* 

* NOTE: set tabs to 4 spaces to keep columns formatted correctly. 

* 
***************************************************************************** 

*/ 

^include <conio.h> 

^include <iostream.h> 
^include <stdio.h> 
iinclude <stdlib.h> 
^include <string.h> 
^include <conio.h> 
^include <stdio.h> 
^include <time.h> 
^include <ctype.h> 

^include "reg.h" 



^include 


"TPG. 


h 


^include 


"MON. 


h 


^include 


"SCL . 


h 


^include 


"SEQ. 


h 


^include 


"INP . 


h 


^include 


"OUT. 


h 


^include 


"BUS. 


h 


^include 


"DSP . 


h 


^include 


"ADR. 


h 


^include 


"PAR. 


h 


^include 


"MBF. 


h 


^include 


"MEM. 


h 


^include 


"CTR. 


h 


^include 


"INT. 


h 


^include 


"KBD. 


h 


^include 


"CRG. 


h 


^include 


"ALU. 


h 


^include 


"CPM. 


h 


^include 


"ISD. 


h 


^include 


"CLK. 


h 



extern bool dskyChanged; 

// 

// CONTROL LOGIC 

void genAGCStates () 
{ 

// 1) Decode the current instruction subsequence (glbl_subseq) 
// SEQ: :glbl_subseq = CPM: : instructionSubsequenceDecoder () ; 

// 2) Build a list of control pulses for this state. 
CPM: : controlPulseMatrix () ; 



// 3) Execute the control pulses for this state. In the real AGC, these occur 

// simultaneously. Since we can't achieve that here, we break it down into the 

// following steps: 

// Most operations involve data transfers — usually reading data from 

// a register onto a bus and then writing that data into another register. To 

// approximate this, we first iterate through all registers to perform 

// the 'read' operation — this transfers data from register to bus. 

// Then we again iterate through the registers to do 'write' operations, 

// which move data from the bus back into the register. 

BUS: : glbl_READ_BUS = 0; // clear bus; necessary because words are logical 

// OR'ed onto the bus. 
MEM: :MEM_DATA_BUS = ; // clear data lines: memory bits 15-1 

MEM: :MEM_PARITY_BUS = 0; //parity line: memory bit 16 

// Now start executing the pulses: 

// First, read register outputs onto the bus or anywhere else, 
int i; 

for(i=0; i<MAXPULSES SS SEQ : : glbl_cp [ i ] != NO_PULSE; i++) 
{ 

CLK: : doexecR (SEQ : : glbl_cp [i] ) ; 
) 

// Next, execute ALU read pulses. See comments in ALU .C file 
ALU: :glbl_BUS = 0; 

for(i=0; i<MAXPULSES SS SEQ : : glbl_cp [ i ] '.= NO_PULSE; i++) 
{ 

CLK: : doexecR_ALU (SEQ : :glbl_cp [i] ); 
} 

BUS : : glbl_WRITE_BUS = BUS : : glbl_READ_BUS ; // in case nothing is logically OR'ed below; 
for(i=0; i<MAXPULSES SS SEQ : : glbl_cp [ i ] != NO^PULSE; i++) 
{ 

CLK: : doexecR_ALU_OR (SEQ: :glbl_cp[i]) ; 
) 

// Now, write the bus and any other signals into the register inputs. 

for(i=0; i<MAXPULSES SS SEQ : : glbl_cp [ i ] != NO_PULSE; i++) 

{ 

CLK: :doexecW(SEQ: :glbl_cp[i]) ; 

} 

// Always execute these pulses. 
SCL : : doexecWP_SCL () , 
SCL : : doexecWP_Fl 7 () , 
SCL: :doexecWP_F13 () ; 
SCL : : doexecWP_Fl () ; 
TPG : : doexecWP_ TPG() 
} 

// 

// SIMULATION LOGIC 

// contains prefix for source filename; i.e. : the portion 
// of the filename before . obj or . 1st 
char filename [80] ; 



char* getCommand (char* prompt) 
{ 

static char s[80]; 

char* sp = s; 

cout « prompt; cout . flush () ; 

char key; 

while ((key = _getch()) '.= 13) 

{ 

if (i sprint (key) ) 
{ 

cout « key; cout . flush () ; 
*sp = key; sp++; 
) 



else if (key == 8 && sp != s) 

{ 

cout « key « " " « key; cout . flush () ; 



} 
} 

*sp = '\0' 
return s; 



sp—; 



} 



bool breakpointEnab = false; 
unsigned breakpoint = 0; 
void toggleBreakpoint () 
{ 

if ( ! breakpointEnab) 

{ 



} 
else 

{ 



char b[80]; 

strcpy (b, getCommand ( "Set breakpoint: — enter 14— bit CADR (octal): ")); 

cout « endl; 

breakpoint = strtol (b, 0, 8) ; 
breakpointEnab = true; 



cout « "Clearing breakpoint . " « endl; 
breakpointEnab = false; 



) 



bool watchEnab = false; 
unsigned watchAddr = 0; 
unsigned oldWatchValue = 0; 
void toggleWatch() 
{ 

if (!wat chEnab) 

{ 



} 

else 

{ 



char b[80]; 

strcpyfb, getCommand ( "Set watch: — enter 14— bit CADR (octal): ")); 

cout « endl; 

watchAddr = strtol (b, 0, 8) ; 

watchEnab = true; 

oldWatchValue = MEM: :readMemory (watchAddr) ; 

char buf[100]; 

sprintf (buf, "%06o: %06o", watchAddr, oldWatchValue); 

cout « buf « endl; 



cout « "Clearing watch. " « endl; 
watchEnab = false; 



void incrCntr () 
{ 



} 



char cntrname[80] ; 

strcpy (cntrname, getCommand ("Increment counter: — enter pcell (0—19): ")); 

cout « endl; 

int pc = atoi (cntrname) ; 
CTR: :pcUp[pc] = 1; 



void decrCntr () 

{ 

char cntrname [80] ; 

strcpy (cntrname, getCommand ("Decrement counter: — enter pcell (0—19): ")); 

cout « endl; 

int pc = atoi (cntrname) ; 
CTR: :pcDn[pc] = 1; 



void interrupt () 
{ 

char inatne [80] ; 

strcpy (iname, getCommand (" Interrupt : — enter priority (1—5): ")), 

cout « endl; 

int i = atoi (iname) - 1; 
INT: :rupt[i] = 1; 



iifdef NOTDEF 

// Load AGC memory from the specified file object file 
void loadMemoryO 

{ 

strcpy (filename, getCommand ("Load Memory — enter filename: ")); 
cout « endl; 

// Add the .obj extension, 
char fname [80] ; 
strcpy (fname, filename) ; 
strcat (fname, " . obj ") ; 

FILE* fp = f open (fname, "r") ; 

if('-fp) 

{ 

perror ( "fopen failed : ") ; 

cout « "*** ERROR: Can't load memory for file: " « fname « endl; 

return; 

} 

unsigned addr; 

unsigned data; 

while (fscanf (fp, "%o %o", Saddr, Sdata) != EOF) 

{ 

MEM: :writeMemory (addr , data); 

) 

f close (fp) ; 

cout « "Memory loaded. " « endl; 
} 
#endif 

static int loadBuf [Oxffff+1] ; // tempory buffer for assembling H,L memory data 

void loadEPROM(char* fileName, bool highBytes) 

{ 

cout « "Reading EPROM: " « fileName « endl; 

// Open the EPROM file. 
FILE* ifp = fopen (fileName, "r") ; 
if('.ifp) 
{ 

perror ("fopen failed for source file"); 

exit(-l) ; 
) 

const int addressBytes = 3; // 24— bit address range 
const int sumCheckBytes = 1; 

char buf[4096] ; // buffer holds a single S-Record 
while (fgets (buf, 4096, ifp) ) 

{ 

// process a record 
if (buf [0] '.= 'S') 
{ 

cout « "Error reading start of EPROM record for: " « fileName « endl; 
exit(-l); 
) 

char tmp[256] ; 

strncpy(tmp, Sbuf[2], 2); tmp[2] = '\0'; 
int totalByteCount = strtol (tmp, 0, 16); 
int mySumCheck = totalByteCount S Oxff; 



; 



strncpy(tmp, &buf[4], 6); tmp[addressBytes*2] = '\0'; 

int address = strtol (tmp, 0, 16); 

mySumCheck = (mySumCheck + ((address S OxffOOOO) » 16)) % 256; 

mySumCheck = (mySumCheck + ((address S 0x00 ff 00) » 8)) % 256; 

mySumCheck = (mySumCheck + ((address S OxOOOOff) )) % 256; 

//cout « hex « totalByteCount « ", " « address « dec « endl; 

int dataBytes = totalByteCount - addressBytes - sumCheckBytes ; 

int i = (addressBytes+2) *2; // index to 1st databyte char. 

for (int j=0; j<dataBytes; j++) 

{ 

// get a data byte 

strncpy(tmp, Sbuf[i], 2); tmp [2] = ' \0 ' ; 

int data = strtol (tmp, 0, 16); 

//cout « hex « data « dec « endl; 

mySumCheck = (mySumCheck + data) % 256; 

if (highBytes) 

{ 

loadBuf [address] = loadBuf [address] / ( (data « 8) S OxffOO) ; 

} 

else 

{ 

loadBuf [address] = loadBuf [address] / (data S Oxff) ; 

} 
address++; 

i+=2; // bump to next databyte char 

} 

strncpyftmp, Sbuf[i], 2); tmp [2] = ' \0 ' ; 

int sumCheck = strtol (tmp, 0, 16); 

if (sumCheck != ( (~my SumCheck) & Oxff)) 
{ 

cout « "sumCheck failed; file: " « fileName 
« ", address : " « hex « address 

« ", sumCheck: " « sumCheck « ", mySumCheck: " « mySumCheck 
« dec « endl; 
exit(-l) ; 
) 

} 

f close (ifp) ; 

cout « "Memory loaded. " « endl; 



// Load AGC memory from the specified EPROM files 
void loadMemoryO 

{ 

strcpy (filename, getCommandf "Load Memory — enter filename: ")); 
cout « endl; 

char f name [80] ; 

// Add the _H.hex extension, 
strcpy (fname, filename) ; 
strcat (fname, "_H.hex") ; 

loadEPROM ( fname , true); 

// Add the _L.hex extension, 
strcpy (fname, filename) ; 
strcat (fname, "_L . hex ") ; 

loadEPROM ( fname , false); 

// EPROM is now in loadBuf; move it to AGC memory. 

// AGC fixed memory only uses NUMFBANK banks. 
for(int address=1024; address < 1024* (NUMFBANK+1) ; address++) 
{ 

// Don't load address region 0-1023; that region is allocated 



// to eraseable memory, 
//cout « "loading CADR=" « hex « address « endl; 
MEM: : writeMemory (address, loadBuf [address] ) ; 

******************************************************************* 



// 



// Write the entire contents of fixed and 

// eraseable memory to the specified file. 

// Does not write the registers 
void saveMemory (char* filename) 
{ 

FILE* fp = fopen (filename, "w") ; 

ifdfp) 

{ 

perrorf"*** ERROR: fopen failed: ") ; 
exit (-1) ; 

} 

char buf [100]; 

for (unsigned addr=020; addr<=031777; addr++) 

{ 

sprint f (buf, "%06o %06o\n", addr, MEM: : readMemory (addr) ) ; 

fputs (buf, fp) ; 
} 

f close (fp) ; 
) 

void examineMemory ( ) 
{ 

char theAddress [20] ; 

strcpy(theAddress, getCommandf "Examine Memory — enter address (octal): ")); 

cout « endl; 

unsigned address = strtol (theAddress, 0, 8) ; 

char buf [100]; 

for (unsigned i=address; i<address+23; i++) 

{ 

sprintf(buf, "%06o: %06o", i, MEM: : readMemory (i) ) ; 

cout « buf « endl; 
} 
} 

// Returns true if time (s) elapsed since last time it returned true; does not block 

// search for "Time Management " 
bool checkElapsedTime (time_t s) 
{ 

if (is) return true; 

static clock_t start = clock () ; 
clock_t finish = clock () ; 

double duration = (double) (finish - start) / CLOCKS_PER_SEC ; 
if (duration >= s) 

{ 

start = finish; 
return true; 
} 

return false; 
) 

// Blocks until time (s) has elapsed, 
void delay (time_t s) 
{ 

if(!s) return; 

clock_t start = clock () ; 
clock_t finish = 0; 
double duration = 0; 

do 
{ 

finish = clock () ; 
} 
while ( (duration = (double) (finish - start) / CLOCKS_PER_SEC ) < s) ; 



; 

void updateAGCDisplay () 
{ 

static bool displayTimeout = false; 

static int clockCounter = 0; 

if (checkElapsedTime (2) ) displayTimeout = true; 
if (MON: :FCLK) 

{ 

if(MON: :RUN) 

{ 

// update every 2 seconds at the start of a new instruction 
if (displayTimeout II dskyChanged) 
{ 

clockCounter++ ; 
If I 

(TPG: :register_SG.read() == TP12 SS 

SEQ: :register_SNI.read() == 1) II 
(TPG: :register_SG.read() ==STBY) II 
clockCounter > 500 / / 
dskyChanged) 
{ 

MON: : displayAGC () ; 
displayTimeout = false; 
clockCounter = 0; 
dskyChanged = false; 
} 
} 
} 
else 

{ 

static bool displayOnce = false; 
if(TPG::register_SG.read() == WAIT) 
{ 

if (displayOnce == false) 
{ 

MON: : displayAGC () ; 
displayOnce = true; 
clockCounter = 0; 
) 
} 
else 

{ 



} 



displayOnce = false; 



} 
else 



} 



} 

MON: : displayAGC () ; // When the clock is manual or slow, always update. 



void showMenu () 

{ 

cout « "AGC4 EMULATOR MENU: " « endl; 

cout « " 'r' = RUN: toggle RUN/HALT switch upward to the RUN position. " « endl; 



} 



const 


int 


startCol 


= 0; 


const 


int 


colLen 


= 5; 


const 


int 


maxLines 


= 23; 


const 


int 


noffset 


= 10; 



// columns are numbered 0-n 
// number of chars in column 

// § of total lines to display 

// § of lines prior to, and including, selected line 



const int maxLineLen = 79; 



void showSourceCode () 

{ 

// Add the .1st extension, 
char f name [80] ; 
strcpy (fname, filename) ; 
strcat (fname, " . 1st ") ; 

// Open the file containing the source code listing. 
FILE* fp = f open (fname, "r"); 
ifdfp) 



I 

perror ( "fopen failed : ") ; 

cout « "*** ERROR: Can't load source list file: " « fname « endl; 

return; 
) 
cout « endl; 

// Get the address of the source code line to display. 

// The address we want is the current effective address is the 

// S and bank registers . 
char CADR[colLen+l] ; 
sprint f (CADR, "%05o ", ADR : : getEffectiveAddress () ) ; 

int op = 0; // offset index 

long foffset[noffset]; 

for (int i=0; i<noffset; i++) f offset [i]=0; 

bool foundit = false; 
int lineCount = 0; 

char s[256]; 

char valString [20] ; 

char out [256] ; 

while(!feof(fp)) 
{ 

if (! foundit) 

{ 

f off set [op] = ftell (fp) ; 

op = (op + 1) % noffset; 
} 

// Read a line of the source code list file. 
if(fgets(s, 256, fp) ) 
{ 

// Get the address (CADR) from the line. 

strncpy (valString, s+startCol, colLen) ; 

valString [colLen] = ' \0 ' ; 

// 'foundit' is true after we have found the desired line, 
if (foundit) 
{ 

if (strcmp (valString, CADR) == 0) 

cout « "> "; 
else 

cout « " "; 

// truncate line so it fits in 80 col display 
strncpy (out, s, maxLineLen) ; 
out [maxLineLen] = ' \0 ' ; 
cout « out; 

lineCount++; 

if (lineCount >= maxLines) 
break; 
} 

else 
{ 

if (strcmp (valString, CADR) == 0) 

{ 

// Reposition the file pointer back several lines so 
// we can see the code that preceeds the desired 
// line, too. 

foundit = true; 

fseek (fp, foffset [op] , 0) ; 



} 



} 
} 
f close (fp) ; 



void main (int argc, char* argv[]) 

{ 



CPM : : readEPROM ( "CPM1_8 .hex", CPM: :EPROMl_8) ; 

CPM: : readEPROM ( "CPM9_1 6 . hex ", CPM: : EPROM9_16) ; 

CPM: : readEPROM ( "CPM1 1_24 . hex ", CPM: : EPR0M1 7_24) 

CPM: : readEPROM ( "CPM25_32 . hex ", CPM: : EPR0M25_32) 

CPM: : readEPROM ("CPM33_40. hex", CPM: :EPROM33_40) 

CPM: : readEPROM ("CPM41_4 8. hex", CPM: :EPROM41_48) 

CPM: :readEPROM("CPM49_56.hex", CPM: :EPROM49_56) 



bool singleClock = false; 



genAGCStates () ; 
MON: : dlsplayAGC () ; 

while (1) 
{ 

// NOTE: assumes that the display is always pointing to the start of 

// a new line at the top of this loop! 

// Clock the AGC, but between clocks, poll the keyboard 

// for front— panel input by the user. This uses a Microsoft function; 

// substitute some other non- blocking function to access the keyboard 

// if you're porting this to a different platform. 

cout « "> "; cout . flush () ; // display prompt 

while ( !_kbhit () ) 
{ 

if(MON::FCLK \\ singleClock) 
{ 

// This is a performance enhancement . If the AGC is running, 
// don't check the keyboard or simulator display every 
// simulation cycle, because that slows the simulator 
// down too much, 
int genStateCntr = 100; 
do { 

CLK: :clkAGC() ; 

singleClock = false; 

genAGCStates () ; 
genStateCntr — ; 

// Needs more work. It doesn't always stop at the 
// right location and sometimes stops at the 
// instruction afterwards, too. 

if (breakpointEnab SS 

breakpoint == ADR: :getEffectiveAddress () ) 

{ 

MON: :RUN = 0; 

) 

// Halt right after instr that changes a watched 
// memory location, 
if (watchEnab) 

{ 

unsigned newffatchValue = MEM: : readMemory (watchAddr) ; 

if (newWatchValue != oldWatchValue) 

{ 

MON: :RUN = 0; 

} 

oldWatchValue = newWatchValue; 
) 

} while (MON: :FCLK && MON::RUN && genStateCntr > 0) ; 

updateAGCDisplay () ; 

} 

// for convenience, clear the single step switch on TP1; in the 

// hardware AGC, this happens when the switch is released 

if (MON: -.STEP && TPG: : register_SG.read() == TP1) MON::STEP = 0; 

} 

char key = _getch () ; 

// Keyboard controls for front-panel: 
switch (key) 



// AGC controls 

// simulator controls 

case 'q': cout « "QUIT..." « endl; exit(O); 
case 'm ' : showMenu () ; break; 

case ' d ' : 

genAGCStates () ; 
MON: : displayAGC () ; 
break; // update display 

case '1': loadMemory ( ) ; break; 
case 'e': examineMemory ( ) ; break; 

case '£': 

showSourceCode () ; 
break; 

case ' ] ' : 

incrCntr () ; 
//genAGCStates () ; 
//displayAGC (EVERY_CYCLE) ; 
break; 

case ' [ ' : 

decrCntr () ; 
//genAGCStates () ; 
//displayAGC (EVERY_CYCLE) ; 
break; 



interrupt () ; 
//genAGCStates () ; 
//displayAGC (EVERY_CYCLE) ; 
break; 



//SCL: :F17 = (SCL::F17 + 1) % 2; 
genAGCStates () ; 
MON: : displayAGC () ; 
break; 

case 'x ' : 

//SCL::F13 = (SCL: :F13 + 1) % 2; 
genAGCStates () ; 
MON: : displayAGC () ; 
break; 

case 'c': 

MON : : SCL_ENAB = (MON : : SCL_ENAB + 1) % 2; 
genAGCStates () ; 
MON: : displayAGC () ; 
break; 

case 'r': 

MON: :RUN = (MON: :RUN + 1) % 2; 

genAGCStates () ; 

if(!MON: :FCLK) MON: : displayAGC () ; 

break; 



MON::STEP = (MON: -.STEP + 1) % 2; 

genAGCStates () ; 

if(!MON: :FCLK) MON: : displayAGC () ; 

break; 



MON::SA = (MON::SA + 1) % 2; 
genAGCStates () ; 
MON: : displayAGC () ; 
break; 

case 'n ' : 

MON:: INST = (MON:: INST + 1) % 2; 
genAGCStates () ; 



MON: : displayAGC () ; 
break; 



case p ' 



MON: :PURST = (MON: :PURST + 1) % 2; 
genAGCStates () ; 
MON: : dlsplayAGC () ; 
break: 



case 'b ' : 

toggleBreakpoint () ; 
break; 

case 'y ' : 

toggleWatch () ; 
break; 

case ' ; ' : 

// Clear ALARM indicators 
PAR : : CLR_PALM ( ) ; // Asynchronously clear PARITY FAIL 

MON: : displayAGC () ; 
break; 



case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 



// 
•0' : 
'1 ' : 
'2' : 
'3' : 
•4 ' : 
'5' : 
•6' : 
•7' : 
'8' : 

,g, . 

'+' : 



9 

'h ■ 



DSKY: 



KBD 
KBD 
KBD 
KBD 
KBD 
KBD 
KBD 
KBD 
KBD 
KBD 
KBD 
KBD 
KBD 
KBD 
KBD 
KBD 
KBD 
KBD 



keypress 
keypress 
keypress 
keypress 
keypress 
keypress 
keypress 
keypress 
keypress 
keypress 
keypress 
keypress 
keypress 
keypress 
keypress 
keypress 
keypress 
keypress 



(KEYIN_0) ; break; 
(KEYIN_1) ; break; 
(KEYIN_2) ; break; 
(KEYIN_3) ; break; 
(KEYIN_4) ; break; 
(KEYIN_5) ; break; 
(KEYIN_6) ; break; 
(KEYIN_ 7) ; break; 
(KEYIN_8) ; break; 
(KEYIN_9) ; break; 
(KEYIN_PLUS) ; break; 
(KEYIN_MINUS) ; break; 
(KEYIN_CLEAR) ; break; 
(KEYIN_VERB) ; break; 
(KEYIN_NOUN) ; break; 
(KEYIN_KEY_RELEASE) ; break; 
(KEYIN_ERROR_RESET) ; break; 
(KEYIN_ENTER) ; break; 



'\0': // must be a function key 
key = _getch () ; 
switch (key) 

{ 

case 0x3b: // Fl : single clock pulse (when system clock off) 

singleClock = true; break; 
case 0x3c: // F2 : manual clock (FCLK=0) 

= 0; genAGCStates () ; MON: : displayAGC () ; break; 
fast clock (FCLK=1) 



MON: :FCLK 
case 0x3e: // F4 



MON::FCLK = 1; genAGCStates () ; MON: -.displayAGC () ; break; 
: cout « "function key: " « key « "=" 
« hex « (int) key « dec « endl; 



} 



break; 



//default: cout « "??" « endl; 

default: cout « key « "=" « hex « (int) key « dec « endl; 

} 



ADR (ADR.h) 

/**************************************************************************** 

* ADR - MEMORY ADDRESS subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: ADR.h 

* 

* VERSIONS : 

* 

* DESCRIPTION: 

* Memory address for the Block 1 Apollo Guidance Computer prototype (AGC4) . 

* 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
iifndef ADR_H 
#define ADR_H 

enum specialRegister { // octal addresses of special registers 
// Flip-Flop registers 



A_ADDR 


=00, 


Q_ADDR 


=01, 


Z_ADDR 


=02, 


LP_ADDR 


=03, 


INO_ADDR 


=04, 


IN1_ADDR 


=05, 


IN2_ADDR 


=06, 


IN3_ADDR 


=07, 


OUT0_ADDR 


=010, 


OUTl_ADDR 


=011, 


0UT2_ADDR 


=012, 


OUT3_ADDR 


=013, 


0UT4_ADDR 


=014, 


BANK_ADDR 


=015, 



// No bits in these registers 
RELINT_ADDR =01 6, 

INHINT_ADDR =01 7, 

// In eraseable memory 
CYR_ADDR =020, 



SR_ADDR 


=021, 


CYL_ADDR 


=022, 


SL_ADDR 


=023, 


ZRUPT_ADDR 


=024, 


BRUPT_ADDR 


=025, 


ARUPT_ADDR 


=026, 


QRUPT_ADDR 


=027, 



}; 



class regS : public reg 
{ 
public: 

regS() : reg (12, "%04o") { } 

}; 



class regBNK : public reg 
{ 
public: 

regBNK () : reg (4, "%02o") { } 

}; 



class ADR 



friend class MON; 



friend class MEM; 

friend class CLK; 
friend class CPM; 

public: 

static void execWP_WS(); 
static void execRP_RBK() ; 
static void execWP_WBK ( ) ; 



static bool GTR_17(); 
static bool GTR_27() 
static bool EQU_16() 
static bool EQU_17(); 
static bool EQU_25(); 



// for MBF, 
// for PAR 
// for CPM 
// for CPM 
// for SEQ 



CPM 



static bool GTR_1777 () ; // for CPM 



static unsigned getEffectiveAddress () ; 



private: 



}; 

#endif 



static regS register_S; // address register 
static regBNK register_BNK; // bank register 

static unsigned bankDecoder () ; 

static unsigned conv_WBK[]; 



ADR (ADR.cpp) 

/**************************************************************************** 

* ADR - MEMORY ADDRESS subsystem 
* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: ADR.cpp 

* 

* NOTES: see header file. 

* 
**************************************************************** 

*/ 

^include "reg.h" 

§in cl ude "ADR . h " 

^include "SEQ.h" 

^include "BUS.h" 

regS ADR: :register_S; // address register 
regBNK ADR: : register_BNK; // bank register 

// transfer bits 14-11 from the bus into the 4-bit bank register 

unsigned ADR : : conv_WBK [ ] = 

{ BX, BX, BX, BX, BX, BX, BX, BX, BX, BX, BX, BX, B14, B13, B12, Bll }; 



void ADR : : execWP_WS ( ) 

register_S . write (BUS: :glbl_WRITE_BUS) ; 

void ADR: :execRP_RBK() 

BUS : : glbl_READ_BUS = register_BNK.read() « 10; 

void ADR: :execWP_WBK() 

register_BNK . writeShift (BUS : : glbl_WRITE_BUS, ADR : : conv_WBK) , 

bool ADR: :GTR_27() 

return (register_S. read() > 027); 

bool ADR : : GTR_ 17 () 

// check: address is not a central register 
return (register_S. read() > 017); 

bool ADR: :EQU_25() 

return (register_S. read() == 025); 

bool ADR : : EQU_1 7 () 

// check: instruction is INHINT (INDEX 017) 
return (register_S. read() == 017); 

bool ADR: :EQU_16() 

// check: instruction is RELINT (INDEX 016)) 
return (register_S. read() == 016); 

bool ADR : : GTR_ 1777 () 

// check: address is fixed memory 



return (register_S . read() > 01777); 



unsigned ADR : : bankDecoder ( ) 

{ 

// Memory is organized into 13 banks of IK words each. The banks are numbered 
// 0-12. Bank is erasable memory; banks 1—12 are fixed (rope) memory. The 10 
// lower bits in the S register address memory inside a bank. The 2 upper bits 
// in the S register select the bank. If the 2 upper bits are both 1, the 4-bit 
// bank register is used to select the bank. 

erasable memory 
fixed— fixed 1 memory 
fixed— fixed 2 memory 

fixed-switchable memory (bank register selects bank) 
unsigned bank = ADR: :register_S.readField(12, 11) ; 
if (bank == 3) 
{ 

// fixed-switchable 
if(register_BNK.read() <= 03) // defaults to 6000 - 7777 

return 03; 
else 

return register_BNK . read ( ) ; // 10000 - 31777 



12 


11 


Bank 














1 


1 


1 





2 


1 


1 


3-12 



} 

else 



return bank; // erasable or fixed-fixed 



unsigned ADR: :getEffectiveAddress() 

{ 

// Return the 14— bit address selected by lower 10 bits of the S register (IK) 
// and the bank decoder (which selects the IK bank) 
unsigned lowAddress = ADR: :register_S.readField(10, 1) ; 

if (ADR: : bankDecoder () == 0) 
return lowAddress; 

unsigned highAddress = ADR :: bankDecoder ( ) « 10; 
return highAddress / lowAddress; 



ALU (ALU.h) 

/**************************************************************************** 

* ALU - ARITHMETIC UNIT subsystem 
* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: ALU.h 

* 

* VERSIONS : 

* 

* DESCRIPTION: 

* Arithmetic Unit for the Block 1 Apollo Guidance Computer prototype (AGC4) . 

* 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
iifndef ALU_H 
#define ALU_H 

^include "reg.h" 

class regB : public reg 
{ 
public: 

regB() : reg (16, "%06o") { } 

); 

class regCI : public reg 

public: 

regCI() : reg(l, "%01o") { } 

}; 

class regX : public reg 
{ 
public: 

regX() : reg (16, "%06o") { } 

}; 

class regY : public reg 

public: 

regY() : reg (16, "%06o") { } 

}; 

class regU : public reg 
{ 
public: 

regU() : reg(16, "%06o") { } 

virtual unsigned read(); 

}; 

class ALU 
{ 
public: 

static unsigned glbl_BUS; // mixes the RC and RU together for MASK 

// In the hardware AGC, all read pulses are enabled simultaneously 

// by CLK1 . This simulator has to do the pulses one-at—a—time, so 

// they are executed in the following sequence to mimic the hardware: 

// 

// 1) all read pulses involving subsystems other than ALU are executed, 

// These read pulses output to the glbl_READ__BUS . Only or 1 

// of these pulses should be active at any time (never 2 or more) , 

// 

// 2) next, the read pulses for the ALU are executed. The ALU is treated 

// differently because it is the only subsystem where several read 



}; 

ttendif 



// pulses can be active simultaneously . In the original AGC, these 

// pulses 'inclusive OR' their output to the glbl_READ_BUS, so the 

// simulator has be implemented to execute all read pulses other than 

// the ALU reads first, so the ALU will have the bus data it needs 

// in order to do the inclusive OR. 

// In the recreated AGC hardware design, the ALU is also the subsystem 

// that links the glbl_READ_BUS to the glbl_WRITE_BUS . 

// 

// The recreated ALU hardware design checks whether anything is being 

// written to the glbl_READ_BUS by the other subsystems . If not, it 

// outputs zeroes to the glbl_READ_BUS for input to the inclusive OR 

// operation. 

// It then transfers data on the glbl_READ__BUS to the glbl_WRITE_BUS 

// using an inclusive OR with data generated by other ALU read pulses. 

// The AGC sequencer uses this operation to set certain data lines. 

// 

// 3) finally, all write pulses are executed. 

static void execRP_ALU_RB () ; 
static void execRP_ALU_RC ( ) ; 
static void execRP_ALU_RU ( ) ; 

static void execRP_ALU_0R_RB14 () ; 

static void execRP_ALU__OR_Rl () ; 

static void execRP_ALU_OR_RlC ( ) ; 

static void execRP_ALU_0R_R2 () ; 

static void execRP_ALU_0R_R22 () ; 

static void execRP_ALU_OR_R24 () ; 

static void execRP_ALU_OR_R2000 () ; 

static void execRP_ALU_OR_RSB ( ) ; 

static void execWP_GENRST ( ) ; 
static void execWP_WB () ; 

static void execWP_CI () ; 
static void execWP_WY() ; 

static void execWP_WX() ; 
static void execWP_WYx() ; 



static regB register_B; // next instruction 

static regCI register_CI ; // ALU carry— in flip flop 

static regX register_X; // ALU X register 

static regY register_Y; // ALU Y register 

static regU register_U; // ALU sum 



ALU (ALU.cpp) 

/**************************************************************************** 

* ALU - ARITHMETIC UNIT subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: ALU.cpp 

* 

* NOTES: see header file. 

* 
**************************************************************** 

*/ 

iinclude "ALU.h" 
§in cl ude "SEQ . h " 
^include "BUS.h" 

regB ALU: :register_B; // next instruction 

regCI ALU: : register_CI ; // ALU carry-in flip flop 

regX ALU: : register_X; // ALU X register 

regY ALU: : register_Y ; // ALU Y register 

regU ALU: :register_U; // ALU sum 

unsigned ALU : : glbl_BUS = 0; 



void ALU : : execRP_ALU_KB ( ) 

{ 

BUS : : glbl_READ_BUS = register_B. read() ; 

} 



// Performs an inclusive OR or register U and register C; 
// in the MASK instruction, the RC and RU control pulses 
// are activated simultaneously . This causes both to be 
// gated onto the AGC bus which performs the logical OR. 
void ALU: :execRP_ALU_RC() 

{ 

ALU: : glbl_BUS / = register_B . outmask () S (~register_B . read () ) , 

BUS : : glbl_READ_BUS = ALU : : glbl_BUS ; 
) 

// Performs an inclusive OR or register U and register C; 
// in the MASK instruction, the RC and RU control pulses 
// are activated simultaneously . This causes both to be 
// gated onto the AGC bus which performs the logical OR. 
void ALU: :execRP_ALU_RU() 

{ 

ALU : : glbl_BUS /= register_U.read() ; 
BUS : : glbl_READ_BUS = ALU: :glbl_BUS; 

} 



// 



************************************************************ 



//************************************************************ 
// This is the interface between the read and write busses 

void ALU: :execRP_ALU_0R_RB14 () 

{ 

BUS : : glbl_WRITE_BUS /= 0020000 / BUS : : glbl_READ_BUS ; 

} 

void ALU: : execRP_ALU_OR_Rl () 
{ 



BUS : : glbl_WRITE_BUS \= 0000001 / BUS : : glbl_READ_BUS ; 
} 

void ALU: :execRP_ALU_OR_RlC() 
{ 

BUS : : glbl_WRITE_BUS /= 0177776 / BUS : : glbl_READ_BUS ; 
} 

void ALU: : execRP_ALU_OR_R2 () 

{ 

BUS : : glbl_WRITE_BUS /= 0000002 / BUS: : glbl_READ_BUS ; 

} 

void ALU : : execRP_ALU_OR_RSB ( ) 
{ 

BUS : : glbl_WRITE_BUS /= 0100000 / BUS : : glbl_READ_BUS ; 
) 

void ALU: : execRP_ALU_OR_R22 () 

{ 

BUS : : glbl_WRITE_BUS /= 0000022 / BUS : : glbl_READ_BUS ; 

} 

void ALU: : execRP_ALU_0R_R24 () 
{ 

BUS : : glbl_WRITE_BUS /= 0000024 / BUS : : glbl_READ_BUS ; 
) 

void ALU: :execRP_ALU_OR_R2000() 

{ 

BUS : : glbl_WRITE_BUS /= 0002000 / BUS : : glbl_READ_BUS ; // TC GOPROG instruction 

} 



************************************************************ 



// 



void ALU: :execWP_GENRST() 

{ 
} 



void ALU: :execWP_CI() 

{ 

register_CI . writeField ( 1 , 1,1); 

} 



void ALU: :execWP_WX() 
{ 

register_X. write (BUS: :glbl_WRITE_BUS) ; 

} 



void ALU : : execWP_WB ( ) 

{ 

register_B. write (BUS: :glbl_WRITE_BUS) ; 

} 



void ALU : : execWP_WYx ( ) 
{ 

register_Y .write (BUS: :glbl_WRITE_BUS) ; 
} 

void ALU : : execWP_WY ( ) 

{ 

if(!SEQ: :isAsserted(CI) ) register_CI .writeField (1, 1, 0) , 

register_X. write (0) ; 

register_Y. write (BUS: :glbl_WRITE_BUS) ; 

} 



unsigned regU::read() 

{ 

unsigned carry = 

(outmask () +1) & (ALU: :register_X. read () + ALU: : register_Y. read ()) ; // end-around 
carry 

if (carry \\ ALU: :register_CI .read() ) 

carry = 1; 
else 

carry = 0; 
return outmask () S (ALU: :register_X. read () + ALU: :register_Y. read () + carry); 
} 



BUS (BUS.h) 

/**************************************************************************** 

* BUS - READ/WRITE BUS subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: BUS.h 
* 

* VERSIONS: 

* 

* DESCRIPTION: 

* RW Bus for the Block 1 Apollo Guidance Computer prototype (AGC4) . 

* 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
#ifndef BUS_H 
idefine BUS_H 

// BUS LINE DESIGNATIONS 

// Specify the assignment of bus lines to the inputs of a register (for a 'write' 

// operation into a register) . Each ' conv_ ' array specifies the inputs into a 

// single register. The index into the array corresponds to the bit position in 

// the register, where the first parameter (index=0) is bit 16 of the register (msb) 

// and the last parameter (index=15) is register bit 1 (lsb) . The value of 

// the parameter identifies the bus line assigned to that register bit. 'BX' 

// means 'don't care'; i.e.: leave that register bit alone. 

enum { D0=17, // force bit to zero 

SGM=15, // sign bit in memory 

SG=16, // sign (S2; one's compliment) 

US=15, // uncorrected sign (SI; overflow) , except in register G 

B14=14, B13=13, B12=12, Bll=ll, B10=10, B9=9, B8=8, 

B7=7, B6=6, B5=5, B4=4, B3=3, B2=2 , Bl=l, 

BX=0 // ignore 

}; 

enum ovf State { NO_OVF, POS_OVF, NEG_OVF }; 

class BUS 

{ 
public: 

static unsigned glbl_READ_BUS ; // read/write bus for xfer between central regs 
static unsigned glbl_WRITE_BUS; // read/write bus for xfer between central regs 

friend class INT; 
friend class CTR; 

private : 

static ovf State testOverf low (unsigned bus); 

}; 

ttendif 



BUS (BUS.cpp) 

/**************************************************************************** 

* BUS - READ/WRITE BUS subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: BUS.cpp 

* 

* NOTES: see header file. 

* 
**************************************************************** 

*/ 

^include "BUS.h" 

unsigned BUS : : glbl_READ_BUS = 0; 
unsigned BUS : : glbl_WRITE_BUS = 0; 

ovf State BUS : : testOverf low (unsigned bus) 

{ 

if ((bus & 0100000) && ! (bus & 0040000)) 

return NEG_OVF; // negative overflow 
else if(!(bus S 0100000) && (bus S 0040000)) 
return POS_OVF; // positive overflow 
else 

return NO_OVF; 
} 



CLK (CLK.h) 

/**************************************************************************** 

* CLK - CLOCK subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: CLK.h 
* 

* VERSIONS: 

* 

* DESCRIPTION: 

* Clock for the Block 1 Apollo Guidance Computer prototype (AGC4) . 

* 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
ttifndef CLK_H 
idefine CLK_H 

^include "reg.h" 

// define pointer- to-function type 
typedef void (*EXECTYPE) () ; 



class CLK 
{ 
public: 

static void doexecR (int pulse) ; 

static void doexecR_ALU ( int pulse); 

static void doexecR_ALU_OR (int pulse) , 

static void doexecfi(int pulse); 

static void clkAGC () ; 
static reg* registerList [] ; 

}; 

#endif 



CLK (CLK.cpp) 

/**************************************************************************** 

* CLK - CLOCK subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: CLK.cpp 

* 

* NOTES: see header file. 

* 

**************************************************************** ************* 

*/ 

^include "CLK.h" 

^include "INP.h" 

^include "OUT.h" 

#include "MBF.h" 

§in cl ude "ADR . h " 

/(include "SEQ.h" 

^include "ALU.h" 

^include "CRG.h" 

^include "CTR . h " 

^include "INT.h" 

#±nclude "PAR . h " 

^include "TPG.h" 

§in cl ude "SCL . h " 

^include "MEM.h" 

// A container for all registers . This is kept so we can iterate through 

// all registers to execute the control pulses. For simulation purposes 

// only; this has no counterpart in the hardware AGC. 
reg* CLK: : registerList [ ] = // registers are in no particular sequence 
{ 

SINP: :register_INO, &INP : :register_INl, &INP: :register_IN2, SINP : :register_IN3, 

&OUT: : register_OUTl , &OUT: : register_0UT2 , 

&OUT: : register_0UT3, &OUT: : register_0UT4 , 

SMBF: :register_G, SPAR: :register_G15, SADR: :register_S, SADR: : register_BNK, 
SSEQ: :register_SQ, SALU: : register_B, 

SCRG: :register_Q, SCRG: :register_Z, &CRG: :register_LP, SCRG: : register_A, SALU: :register_X, 

SALU: :register_Y, SALU: :register_U, 

SSEQ: : register_STA, SSEQ: :register_STB, SSEQ: :register_SNI, 

SSEQ: :register_LOOPCTR, SALU: : register_CI, SSEQ : : register_BRl , SSEQ: : register_BR2, 

SCTR: : register_UpCELL, SCTR: : register_DnCELL, 

SINT: :register_RPCELL, SINT: : register_INHINTl , SINT: : register_INHINT, 

SPAR: :register_P, SPAR: : register_P2 , SPAR: :register_PALM, 

STPG: :register_SG, 

SSCL: : register_SCL, 

SSCL: : register_F17 , SSCL: :register_F13, SSCL: :register_F10, 

// zero is end-of-list flag 

}; 



void CLK : : clkAGC ( ) 

{ 



// Now that all the inputs are set up, clock the registers so the outputs 

// can change state in accordance with the inputs. 
for(int i=0; registerList [i] ; i++) 
{ 

} 



registerList [i]->clk () ; 



void execR_NOPULSE ( ) 


{ 


} 






void execR_RAO () 


{ 


CRG: 


: execRP_RAO () , 




void execR_RAl () 


{ 


CRG: 


: execRP_RAl () , 




void execR_RA2 () 


{ 


CRG: 


: execRP_RA2 () , 




void execR_RA3 () 


{ 


CRG: 


: execRP_RA3 () , 




void execR_RA4 () 


{ 


INP: 


: execRP_RA4 () , 




void execR_RA5 () 


{ 


INP: 


: execRP_RA5 () , 




void execR_RA6() 


{ 


INP: 


: execRP_RA6 () , 





void 


execR_RA7 () 


void 


execR_RAll () 


void 


execR_RA12 () 


void 


execR_RA13 () 


void 


execR_RA14 () 


void 


execR_RA () 


void 


execR_RBK () 


void 


execR_RG () 


void 


execR_RLP () 


void 


execR_RQ () 


void 


execR_RRPA () 


void 


execR_RSCT () 


void 


execR_RZ () 


void 


execR_SBWG () 


void 


execR_WE () 



void execR_ALU_RB ( ) 
void execR_ALU_RC ( ) 
void execR_ALU_RU ( ) 



void 


execR_ALU_OR_RSB () ( 


ALU: 


: execRP_ALU_OR_RSB () ; 


void 


execR_ALU_OR_Rl () 


ALU: 


: execRP_ALU_OR_Rl () ; 


void 


execR_ALU_OR_RlC () 


ALU: 


: execRP_ALU_OR_RlC ( ) ; 


void 


execR_ALU_0R_R2 () 


ALU: 


: execRP_ALU_0R_R2 () ; 


void 


execR_ALU_0R_R22 () 


ALU: 


: execRP_ALU_0R_R22 () ; 


void 


execR_ALU_0R_R24 () 


ALU: 


: execRP_ALU_0R_R24 () ; 


void 


execR_ALU_OR_R2000 () 


ALU: 


:execRP_ALU_OR_R2000 () 


void 


execR_ALU_OR_RBl 4 () 


ALU: 


: BxecRP_ALU_0R_RB14 () ; 



INP : : execRP„RA7 () ; 
OUT: :execRP_RAll () ; 
OUT: : execRP_RA12 () ; 
OUT: : execRP_RA13 () ; 
OUT: :execRP_RA14 () ; 
CRG: : execRP_RA () ; 
ADR : : execRP_RBK () ; 
MBF: : execRP_RG () ; 
CRG: : execRP_RLP () ; 
CRG: : execRP_RQ () ; 
INT: : execRP_RRPA () ; 
CTR : : execRP_RSCT () ; 
CRG: : execRP_RZ () ; 
MEM: : execRP_SBWG () ; 
MBF: : execRP_WE () ; 



PAR : : execRP_WE () ; } 



ALU: : execRP_ALU_RB () ; 
ALU: : execRP_ALU_RC () ; 
ALU: : execRP_ALU_RU () ; 



EXECTYPE execR[] = 

{ 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR__RA, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_RG, // 

execR_RLP, // 

execR_NOPULSE, // 

execR__RQ, // 

execR_RRPA, // 

execR_NOPULSE, // 

execR_RSCT, // 

execR_NOPULSE, // 

execR__RZ, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 

execR_NOPULSE, // 



NO_PULSE, 



CI, 

CLG, 

CLCTR, 

CTR, 

GP, 

KRPT, 

NISQ, 

RA, 

RB, 

RB14, 

RC, 

RG, 

RLP, 

RP2, 

RQ, 

RRPA, 

RSB, 

RSCT, 

RU, 

RZ, 

Rl, 

R1C, 

R2, 

R22, 

R24, 

ST1, 

ST2, 

TMZ, 

TOV, 

TP, 

TRSM, 

TSGN, 

TSGN2, 

WA, 

VI ALP, 

WB, 

WGx, 

WLP, 

wove, 

WOVI, 
WOVR, 
WP, 



// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



Carry in 
Clear G 

Clear loop counter** 
Loop counter 
Generate Parity 
Knock down Rupt priority 
New instruction to the SQ register 
Read A 
Read B 
Read bit 14 
Read C 
Read G 
Read LP 
Read parity 2 
Read Q 

Read RUPT address 
Read sign bit 

Read selected counter address 
Read sum 
Read Z 
Read 1 

Read 1 complimented 
Read 2 
Read 22 
Read 24 
Stage 1 
Stage 2 

Test for minus zero 
Test for overflow 
Test parity 
Test for resume 
sign 
sign 2 

A 

A and LP 

B 

G (do not reset) 
Write LP 

Write overflow counter 
Write overflow RUPT inhibit 
Write overflow 
Write P 



Test 

Test 

Write 

Write 

Write 

Write 



execR_ 
execR 
execR 
execR_ 
execR 
execR_ 
execR_ 
execR_ 



_NOPULSE, 
_NOPULSE, 
_NOPULSE, 
_NOPULSE, 
_NOPULSE, 
_NOPULSE, 
_NOPULSE, 
_NOPULSE, 



execR_NOPULSE, 
execR_NOPULSE, 
execR_NOPULSE, 

execR_NOPULSE, 
execR_NOPULSE, 
execR_NOPULSE, 



execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 

execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 
execR_ 



_RAO, 
_RA1, 
,RA2, 
-RA3, 

RA4, 
_RA5, 
_RA6, 

RAT , 

_NOPULSE, 
-RA11, 
_RA12, 

RA13, 

RA14, 
_RBK, 
_NOPULSE, 
_NOPULSE, 

NOPULSE, 
_NOPULSE, 
_NOPULSE, 
_NOPULSE, 
_NOPULSE, 
_NOPULSE, 
_NOPULSE, 
_NOPULSE, 
_NOPULSE, 
_NOPULSE, 
_NOPULSE, 
_NOPULSE, 
_NOPULSE, 

_NOPULSE, 

_NOPULSE, 

_NOPULSE, 

_NOPULSE, 

_NOPULSE, 

_NOPULSE, 

_NOPULSE, 

_NOPULSE, 

_NOPULSE, 

_SBWG, 

_NOPULSE, 

_WE, 

_NOPULSE, 

_NOPULSE, 

_NOPULSE, 

_NOPULSE, 



// 
// 
// 
// 
// 
// 
// 
// 

// 
// 
// 

// 
// 
// 

// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 

// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



NPx, 
WP2, 
WQ, 

ws, 

WX, 
WY, 
WYx, 
WZ, 

RSC, 
WSC, 
WG, 

SDV1, 
SMP1, 
SRSM3, 

RAO, 

RA1, 

RA2, 

RA3, 

RA4, 

RA5, 

RA6, 

RA7, 

RA10, 

RAH, 

RA12, 

RA13, 

RA14, 

RBK, 

WAO, 

WA1, 

WA2, 

VI A3, 

WA10, 

WA11, 

WA12, 

WA13, 

WA14, 

WBK, 

WGn, 

W20, 

W21, 

W22, 

W23 

GENRST, 

CLINH, 

CLINH1 , 

CLSTA, 

CLSTB, 

CLISQ, 

CLRP, 

INH, 

RPT, 

SBWG, 

SETSTB, 

WE, 

WPCTR, 

WSQ, 

WSTB, 

R2000, 



(do not reset) 



// Write P (do not reset) 

// Write P2 

// Write Q 

// Write S 

// Write X 

// Write Y 

// Write Y 

// Write Z 

// Read special and central 
// Write special and central 
// Write G 

// Subsequence DV1 is active 
// Subsequence MP1 is active 
// Subsequence RSM3 is active 



(A) 
(Q) 
(Z) 
(LP) 



// Read register at address 
// Read register at address 
// Read register at address 
// Read register at address 
// Read register at address 
// Read register at address 
// Read register at address 
// Read register at address 
// Read register at address 
// Read register at address 
// Read register at address 
// Read register at address 
// Read register at address 
// Read BNK 

// Write register at address 
// Write register at address 
// Write register at address 
// Write register at address 
// Write register at address 
// Write register at address 
// Write register at address 
// Write register at address 
// Write register at address 
// Write BNK 

// Write G (normal gates) ** 
// Write into CYR 
// Write into SR 
// Write into CYL 
// Write into SL 



// General Reset** 
// Clear INHINT** 
// Clear INHINT1** 
// Clear state counter A (STA) ** 
// Clear state counter B (STB) ** 
// Clear SNI** 
// Clear RPCELL** 
// Set INHINT** 
// Read RUPT opcode ** 
// Write G from memory 
// Set the ST1 bit of STB 
// Write E-MEM from G 

// Write PCTR (latch priority counter sequence) ** 
// Write SQ 

// Write stage counter B (STB) ** 
// Read 2000 ** 




1 
2 
3 
4 
5 
6 
7 

10 (octal) 

11 (octal) 

12 (octal) 

13 (octal) 

14 (octal) 

(A) 

1 (Q) 

2 (Z) 

3 (LP) 

10 (octal) 

11 (octal) 

12 (octal) 

13 (octal) 

14 (octal) 



}; // 99 

void CLK: : doexecR ( int pulse) { execR [pulse] () ; ) 



EXECTYPE execR_ALU[] = 

{ 

execR_NOPULSE, // 
execR_NOPULSE, // 
execR_NOPULSE, // 



NO_PULSE, 

CI, // Carry in 

CLG, // Clear G 



execR^NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_ALU_RB , 


// 


execR_NOPULSE, 


// 


execR_ALU_RC , 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_ALU_RU, 


// 


execR__NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR__NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 



CLCTR, 

CTR, 

GP, 

KRPT, 

NISQ, 

RA, 

RB, 

RB14, 

RC, 

RG, 

RLP, 

RP2, 

RQ, 

RRPA, 

RSB, 

RSCT, 

RU, 

RZ, 

Rl, 

R1C, 

R2, 

R22, 

R24, 

ST1, 

ST2, 

TMZ, 

TOV, 

TP, 

TRSM, 

TSGN, 

TSGN2, 

WA, 

WALP, 

WB, 

WGx, 

WLP, 

wove, 

WOVI, 

WOVR, 

WP, 

WPx, 

WP2, 

WQ, 

ws, 
wx, 

WY, 

WYx, 

WZ, 

RSC, 
WSC, 
WG, 

SDV1, 
SMP1, 
SRSM3, 

RAO, 

RA1, 

RA2, 

RA3, 

RA4, 

RA5, 

RA6, 

RA7, 

RA10, 

RAH, 

RA12, 

RA13, 

RA14, 

RBK, 

WAO, 

WA1, 

WA2, 

WA3, 

WA10, 



// Clear loop counter** 
// Loop counter 
// Generate Parity 
// Knock down Rupt priority 
// New instruction to the SQ register 
// Read A 
// Read B 
// Read bit 14 
// Read C 
// Read G 
// Read LP 
// Read parity 2 
// Read Q 

// Read RUPT address 
// Read sign bit 

// Read selected counter address 
// Read sum 
// Read Z 
// Read 1 

// Read 1 complimented 
// Read 2 
// Read 22 
// Read 24 
// Stage 1 
// Stage 2 

// Test for minus zero 
// Test for overflow 
// Test parity 
// Test for resume 
// Test sign 
// Test sign 2 
// Write A 
// Write A and LP 
// Write B 

// Write G (do not reset) 
// Write LP 

// Write overflow counter 
// Write overflow RUPT inhibit 
// Write overflow 
P 

(do not reset) 



// Write 
// Write 
// Write P2 
// Write 
// Write 
// Write 
// Write 
// Write 
// Write 



(do not reset) 



// Read special and central 
// Write special and central 
// Write G 

// Subsequence DV1 is active 
// Subsequence MP1 is active 
// Subsequence RSM3 is active 



// Read register at 
// Read register at 
// Read register at 
// Read register at 
// Read register at 
// Read register at 
// Read register at 
// Read register at 
// Read register at 
// Read register at 
// Read register at 
// Read register at 
// Read register at 
// Read BNK 
// Write register at 
// Write register at 
// Write register at 
// Write register at 
// Write register at 



address 





(A) 


address 


1 


(Q) 


address 


2 


(Z) 


address 


3 


(LP) 


address 


4 




address 


5 




address 


6 




address 


7 




address 


10 


(octal) 


address 


11 


(octal) 


address 


12 


(octal) 


address 


13 


(octal) 


address 


14 


(octal) 



address (A) 
address 1 (Q) 
address 2 (Z) 
address 3 (LP) 
address 10 (octal) 



cR_NOPULSE, 


// 


•CR_N0PULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


•CR_N0PULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 


cR_NOPULSE, 


// 



WA11, // Write register at address 11 (octal) 

WA12, // Write register at address 12 (octal) 

WA13, // Write register at address 13 (octal) 

WA14, // Write register at address 14 (octal) 

WBK, // Write BNK 

WGn, // Write G (normal gates) ** 

W20, // Write into CYR 

W21, // Write into SR 

W22, // Write into CYL 

W23 // Write into SL 

GENRST,// General Reset** 

CLINH, // Clear INHINT** 

CLINH1,// Clear INHINT1** 

CLSTA, // Clear state counter A (STA) ** 

CLSTB, // Clear state counter B (STB) ** 

CLISQ, // Clear SNI** 

CLRP, // Clear RPCELL** 

INH, // Set INHINT** 

RPT, // Read RUPT opcode ** 

SBWG, // Write G from memory 

SETSTB,// Set the ST1 bit of STB 

WE, // Write E-MEM from G 

WPCTR, // Write PCTR (latch priority counter sequence) ** 

WSQ, // Write SQ 

WSTB, // Write stage counter B (STB) ** 

R2000, // Read 2000 ** 



}; 

void CLK: : doexecR_ALU (int pulse) { execR_ALU[pulse] () ; ) 



EXECTYPE execR_ALU_OR[] = 

{ 

execR_NOPULSE, 

execR_NOPULSE, 

execR_NOPULSE, 

execR_NOPULSE, 

execR__NOPULSE , 

execR_NOPULSE, 

execR_NOPULSE, 

execR_NOPULSE, 

execR_NOPULSE, 

execR_NOPULSE, 

execR_ALU_0R_RB14, 

execR_NOPULSE, 

execR_NOPULSE, 

execR_NOPULSE, 

execR_NOPULSE, 

execR_NOPULSE, 

execR_NOPULSE, 

execR_ALU_OR_RSB, 

execR_NOPULSE, 

execR_NOPULSE, 

execR_NOPULSE, 

execR_ALU_OR_Rl , 

execR_ALU_OR_RlC, 

execR_ALU_OR_R2 , 

execR_ALU_OR_R22 , 

execR_ALU_OR_R24 , 

execR_NOPULSE, 

execR_NOPULSE, 

execR__NOPULSE, 

execR_NOPULSE, 

execR_NOPULSE, 

execR_NOPULSE, 

execR_NOPULSE , 

execR_NOPULSE, 

execR_NOPULSE, 

execR_NOPULSE, 

execR_NOPULSE , 

execR_NOPULSE, 

execR_NOPULSE, 



NO_PULSE, 


CI, 


// Carry in 


CLG, 


// Clear G 


CLCTR, 


// Clear loop counter** 


CTR, 


// Loop counter 


GP, 


// Generate Parity 


KRPT, 


// Knock down Rupt priority 


NISQ, 


// New instruction to the SQ register 


RA, 


// Read A 


RB, 


// Read B 


RB14, 


// Read bit 14 


RC, 


// Read C 


RG, 


// Read G 


RLP, 


// Read LP 


RP2, 


// Read parity 2 


RQ, 


// Read Q 


RRPA, 


// Read RUPT address 


RSB, 


// Read sign bit 


RSCT, 


// Read selected counter address 


RU, 


// Read sum 


RZ, 


// Read Z 


Rl, 


// Read 1 


R1C, 


// Read 1 complimented 


R2, 


// Read 2 


R22, 


// Read 22 


R24, 


// Read 24 


ST1, 


// Stage 1 


ST2, 


// Stage 2 


TMZ, 


// Test for minus zero 


TOV, 


// Test for overflow 


TP, 


// Test parity 


TRSM, 


// Test for resume 


TSGN, 


// Test sign 


TSGN2, 


// Test sign 2 


WA, 


// Write A 


WALP, 


// Write A and LP 


WB, 


// Write B 


WGx, 


// Write G (do not reset) 


WLP, 


// Write LP 



}; 



execR^NOPULSE, 


// 


execR__NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE , 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE , 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR__NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE , 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE , 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR__NOPULSE , 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE , 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE , 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_NOPULSE, 


// 


execR_ALU_OR_R2000 , 


// 



wove, 

WOVI, 

WOVR, 

WP, 

WPx, 

WP2, 

WQ, 

ws, 
wx, 

WY, 

WYx, 

WZ, 

RSC, 
WSC, 
WG, 

SDV1, 
SMP1, 
SRSM3, 

RAO, 

RA1, 

RA2, 

RA3, 

RA4, 

RA5, 

RA6, 

RA7, 

RA10, 

RAH, 

RA12, 

RA13, 

RA14, 

RBK, 

WAO, 

WA1, 

WA2, 

WA3, 

WA10, 

WA11, 

WA12, 

WA13, 

WA14, 

WBK, 

WGn, 

W20, 

W21, 

W22, 

W23 

GENRST, 

CLINH, 

CLINH1 , 

CLSTA, 

CLSTB, 

CLISQ, 

CLRP, 

INH, 

RPT, 

SBWG, 

SETSTB, 

WE, 

WPCTR, 

WSQ, 

WSTB, 

R2000, 



// Write overflow counter 
// Write overflow RUPT inhibit 
// Write overflow 
P 

(do not reset) 



// Write 
// Write P 
// Write P2 
// Write 
// Write 
// Write 
// Write 
// Write 
// Write 



(do not reset) 



// Read special and central 
// Write special and central 
// Write G 

// Subsequence DV1 is active 
// Subsequence MP1 is active 
// Subsequence RSM3 is active 

// Read register at address (A) 

// Read register at address 1 (Q) 

// Read register at address 2 (Z) 

// Read register at address 3 (LP) 

// Read register at address 4 

// Read register at address 5 

// Read register at address 6 

// Read register at address 7 

// Read register at address 10 (octal) 

// Read register at address 11 (octal) 

// Read register at address 12 (octal) 

// Read register at address 13 (octal) 

// Read register at address 14 (octal) 

// Read BNK 

// Write register at address (A) 

// Write register at address 1 (Q) 

// Write register at address 2 (Z) 

// Write register at address 3 (LP) 

// Write register at address 10 (octal) 

// Write register at address 11 (octal) 

// Write register at address 12 (octal) 

// Write register at address 13 (octal) 

// Write register at address 14 (octal) 

// Write BNK 

// Write G (normal gates) ** 

// Write into CYR 

// Write into SR 

// Write into CYL 

// Write into SL 

// General Reset** 
// Clear INHINT** 
// Clear INHINT1** 



// 
// 



Clear state counter A 
Clear state counter B 



(STA) ** 
(STB) ** 



// Clear SNI** 
// Clear RPCELL** 
// Set INHINT** 
// Read RUPT opcode ** 
// Write G from memory 
// Set the ST1 bit of STB 
// Write E-MEM from G 

// Write PCTR (latch priority counter sequence) ** 
// Write SQ 

// Write stage counter B (STB) ** 
// Read 2000 ** 



void CLK: :doexecR_ALU_OR(int pulse) ( execR_ALU_OR [pulse] () ; } 



void 


execW_NOPULSE () i 


} 






void 


execW_CI () 


ALU: 


: execWP_CI () ; 




void 


execW_CLG() { PAR: 


: execWP_CLG () ; 




void 


execW_CLINH ( ) { INT: 


: execWP_CLINH () ; 




void 


execW_CLINHl () 


INT: 


: execWP_CLINHl () ; 




void 


execW_CLISQ () 


SEQ: 


: execWP_CLISQ () ; 




void 


execW_CLCTR () 


SEQ: 


: execWP_CLCTR () ; 




void 


execW_CLRP () 


INT: 


: execWP_CLRP () ; 




void 


execW_CLSTA () 


SEQ: 


: execWP_CLSTA () ; 




void 


execW_CLSTB () 


SEQ: 


: execWP_CLSTB () ; 




void 


execW_CTR () 


SEQ: 


: execWP_CTR () ; 




void 


execW_GENRST () < 


r 


SEQ: : execWP_GENRST ( ) , 
MBF: : execWP_GENRST () , 
CRG: : execWP_GENRST () , 
PAR: : execWP_GENRST () , 
ALU: : execWP_GENRST ( ) , 
CTR: : execWP_GENRST () , 
INT: : execWP_GENRST () , 
OUT: : execWP_GENRST () , 


} 


void 


execW_GP () j 


PAR: 


: execWP_GP () ; 




void 


execW_INH () 


INT: 


: execWP_INH ( ) ; 




void 


execW_KRPT () 


INT: 


: execWP_KRPT () ; 




void 


execW_NISQ () 


SEQ: 


: execWP_NISQ () ; 




void 


execW_RPT() 


INT: 


: execWP_RPT () ; 




void 


execW_RP2 () 


PAR: 


: execWP_RP2 () ; 




void 


execW_SBWG () 


MBF: 


: execWP_SBWG () ; PAR : : execWP_SBWG () ; 


void 


execW_SETSTB () 


SEQ: 


: execWP_SETSTB () ; 




void 


execW_STl () 


SEQ: 


: execWP_STl () ; 




void 


execW_ST2 () 


SEQ: 


: execWP_ST2 () ; 




void 


execW_TMZ () 


SEQ: 


: execWP_ TMZ () ; 




void 


execW_TOV() 


SEQ: 


: execWP_ TOV () ; 




void 


execW_TP () 


PAR: 


: execWP_ TP () ; 




void 


execW_TRSM() 


SEQ: 


: execWP_ TRSM () ; 




void 


execW_TSGN() 


SEQ: 


: execWP_ TSGN () ; 




void 


execW_TSGN2 () 


SEQ: 


: execWP_TSGN2 () ; 




void 


execW_WAO () 


CRG: 


: execWP_WAO ( ) ; 




void 


execW_WAl () 


CRG: 


: execWP_WAl () ; 




void 


execW_WA2 () 


CRG: 


: execWP_WA2 () ; 




void 


execW_WA3 () 


CRG: 


: execWP_WA3 ( ) ; 




void 


execW_WA10() 


OUT: 


: execWP_WAl () ; 




void 


execW_WAll () 


OUT: 


:execWP_WAll () ; 




void 


execW_WA12 () 


OUT: 


: execWP_WA12 () ; 




void 


execW_WA13 () 


OUT: 


: execWP_WA13 () ; 




void 


execW_WA14() 


OUT: 


: execWP_WAl 4 () ; 




void 


execW_WA () 


CRG: 


: execWP_WA () ; 




void 


execW_WALP () 


CRG: 


: execWP_WALP () ; 




void 


execW__WB () 


ALU: 


:execWP_WB() ; 




void 


execW_WBK () 


ADR: 


: execWP_WBK () ; 




void 


execW_WE () 


MEM: 


:execWP_WE() ; 




void 


execW_WGn () 


MBF: 


: execWP_WGn () ; 




void 


execW_WGx () 


MBF: 


: execWP_WGx () ; PAR : : execWP_WGx () ; } 


void 


execW_WLP () 


CRG: 


: execWP_WLP () ; 




void 


execW_WOVC () 


CTR: 


: execWP_WOVC () ; 




void 


execW_WOVI () 


INT: 


: execWP_WOVI () ; 




void 


execW_WOVR () 


CTR: 


: execWP__WOVR () ; 




void 


execW_WP () 


PAR: 


: execWP_WP () ; 




void 


execW_WPx () 


PAR: 


: execWP_WPx () ; 




void 


execW_WP2 () 


PAR: 


: execWP_WP2 () ; 




void 


execW_WPCTR () 


CTR: 


: execWP_WPCTR () ; 




void 


execW_WQ () 


CRG: 


: execWP_WQ () ; 




void 


execW_WS () 


ADR: 


:execWP_WS () ; 




void 


execW_WSQ () 


SEQ: 


: execWP_WSQ () ; 




void 


execW_WSTB () 


SEQ: 


: execWP_WSTB () ; 




void 


execW_WX() 


ALU: 


: execWP_WX ( ) ; 




void 


execW_WY() 


ALU: 


: execWP_WY ( ) ; 




void 


execW_WYx () 


ALU: 


: execWP_WYx () ; 




void 


execW_WZ () 


CRG: 


:execWP_WZ () ; 




void 


execW_W20 () 


MBF: 


:execWP_W20() ; 




void 


execW_W21 () 


MBF: 


:execWP_W21 () ; 




void 


execW_W22 () 


MBF: 


: execWP_W22 () ; 




void 


execW_W23 () 


MBF: 


:execWP_W23() ; 





EXECTYPE execW[] = 
{ 



execW_NOPULSE, 


// 


NO_PULSE, 




execW_CI , 


// 


CI, 


// Carry in 




execW_CLG, 


// 


CLG, 


// Clear G 




execW_CLCTR, 


// 


CLCTR, 


// Clear loop counter** 




execW_CTR, 


// 


CTR, 


// Loop counter 




execW_GP , 


// 


GP, 


// Generate Parity 




execW_KRPT, 


// 


KRPT, 


// Knock down Rupt priority 




execW_NISQ, 


// 


NISQ, 


// New instruction to the SQ register 


execW_NOPULSE, 


// 


RA, 


// Read A 




execW_NOPULSE, 


// 


RB, 


// Read B 




execW__NOPULSE, 


// 


RB14, 


// Read bit 14 




execW_NOPULSE, 


// 


RC, 


// Read C 




execW_NOPULSE, 


// 


RG, 


// Read G 




execW_NOPULSE, 


// 


RLP, 


// Read LP 




execW_RP2 , 


// 


RP2, 


// Read parity 2 




execW_NOPULSE, 


// 


RQ, 


// Read Q 




execW_NOPULSE, 


// 


RRPA, 


// Read RUPT address 




execW_NOPULSE, 


// 


RSB, 


// Read sign bit 




execW_NOPULSE, 


// 


RSCT, 


// Read selected counter address 


execW_NOPULSE, 


// 


RU, 


// Read sum 




execW_NOPULSE, 


// 


RZ, 


// Read Z 




execW_NOPULSE, 


// 


Rl, 


// Read 1 




execW_NOPULSE, 


// 


R1C, 


// Read 1 complimented 




execW_NOPULSE, 


// 


R2, 


// Read 2 




execW_NOPULSE, 


// 


R22, 


// Read 22 




execW_NOPULSE, 


// 


R24, 


// Read 24 




execW_STl , 


// 


ST1, 


// Stage 1 




execW_ST2 , 


// 


ST2, 


// Stage 2 




execW_TMZ , 


// 


TMZ, 


// Test for minus zero 




execW_TOV, 


// 


TOV, 


// Test for overflow 




execW_TP , 


// 


IP, 


// Test parity 




execW_TRSM, 


// 


TRSM, 


// Test for resume 




execW_TSGN, 


// 


TSGN, 


// Test sign 




execW_TSGN2, 


// 


TSGN2, 


// Test sign 2 




execW_WA, 


// 


WA, 


// Write A 




execW^WALP , 


// 


WALP, 


// Write A and LP 




execW_WB, 


// 


WB, 


// Write B 




execW_WGx, 


// 


WGx, 


// Write G (do not reset) 




execW_WLP , 


// 


WLP, 


// Write LP 




execW_WOVC, 


// 


wove, 


// Write overflow counter 




execW_WOVI, 


// 


WOVI, 


// Write overflow RUPT inhibit 




execW_WOVR, 


// 


WOVR, 


// Write overflow 




execW_WP , 


// 


WP, 


// Write P 




execW__WPx, 


// 


WPx, 


// Write P (do not reset) 




execW_WP2 , 


// 


YIP 2, 


// Write P2 




execW_WQ, 


// 


WQ, 


// Write Q 




execW_WS, 


// 


ws, 


// Write S 




execW_WX, 


// 


wx, 


// Write X 




execW_WY, 


// 


WY, 


// Write Y 




execW_WYx, 


// 


WYx, 


// Write Y (do not reset) 




execW_WZ , 


// 


WZ, 


// Write Z 




execW_NOPULSE, 


// 


RSC, 


// Read special and central 




execW_NOPULSE, 


// 


WSC, 


// Write special and central 




execW_NOPULSE, 


// 


WG, 


// Write G 




execR_NOPULSE, 


// 


SDV1, 


// Subsequence DV1 is active 




execR_NOPULSE, 


// 


SMP1, 


// Subsequence MP1 is active 




execR_NOPULSE, 


// 


SRSM3, 


// Subsequence RSM3 is active 




execW_NOPULSE, 


// 


RAO, 


// Read register at address 


(A) 


execW_NOPULSE, 


// 


RA1, 


// Read register at address 1 


(Q) 


execW_NOPULSE, 


// 


RA2, 


// Read register at address 2 


(Z) 


execW_NOPULSE , 


// 


RA3, 


// Read register at address 3 


(LP) 


execW_NOPULSE, 


// 


RA4, 


// Read register at address 4 




execW_NOPULSE, 


// 


RA5, 


// Read register at address 5 




execW_NOPULSE, 


// 


RA6, 


// Read register at address 6 




execW_NOPULSE, 


// 


RA7, 


// Read register at address 7 




execW_NOPULSE, 


// 


RA10, 


// Read register at address 10 


(octal) 


execW_NOPULSE, 


// 


RAH, 


// Read register at address 11 


(octal) 


execW_NOPULSE, 


// 


RA12, 


// Read register at address 12 


(octal) 


execW_NOPULSE, 


// 


RA13, 


// Read register at address 13 


(octal) 


execW_NOPULSE, 


// 


RA14, 


// Read register at address 14 


(octal) 


execW_NOPULSE, 


// 


RBK, 


// Read BNK 





■cW_WAO, 


// 


•cW_WAl, 


// 


CW_WA2, 


// 


CW_WA3, 


// 


■CW_WA10, 


// 


CW_WA11, 


// 


■CW_WA12, 


// 


CW_WA13, 


// 


•CW_WA14, 


// 


■cW_WBK, 


// 


cW_WGn, 


// 


cW_W20, 


// 


•cW_W21, 


// 


cW_W22, 


// 


cW_W23, 


// 


■cW_GENRST, 


// 


•CW_CLINH, 


// 


CW_CLINH1, 


// 


CW_CLSTA, 


// 


CW_CLSTB, 


// 


cW_CLISQ, 


// 


CW_CLRP, 


// 


CW_INH, 


// 


CW_RPT, 


// 


■CW_SBWG, 


// 


•CW_SETSTB, 


// 


CW_WE, 


// 


cW_WPCTR, 


// 


cW_WSQ, 


// 


CW_WSTB, 


// 


cW_NOPULSE, 


// 



WAO, 

WA1, 

WA2, 

WA3, 

WA10, 

WA11, 

WA12, 

WA13, 

WA14, 

WBK, 

WGn, 

W20, 

W21, 

W22, 

W23 

GENRST, 

CLINH, 

CLINH1 , 

CLSTA, 

CLSTB, 

CLISQ, 

CLRP, 

INH, 

RPT, 

SBWG, 

SETSTB, 

WE, 

ffPCTR, 

WSQ, 

WSTB, 

R2000, 



// Write 
// Write 
// Write 
// Write 
// Write 
// Write 
// Write 
// Write 
// Write 
// Write 
// Write 
// Write 
// Write 
// Write 
// Write 



register 

register 

register 

register 

register 

register 

register 

register 

register 

BNK 

G (normal 

into CYR 

into SR 

into CYL 

into SL 



at address 
at address 
at address 
at address 
at address 
at address 
at address 
at address 
at address 



(A) 

1 (Q) 

2 (Z) 

3 (LP) 

10 (octal) 

11 (octal) 

12 (octal) 

13 (octal) 

14 (octal) 



gates) 



** 



// General Reset** 
// Clear INHINT** 
// Clear INHINT1** 
// Clear state counter A (STA) ** 
// Clear state counter B (STB) ** 
// Clear SNI** 
// Clear RPCELL** 
// Set INHINT** 
// Read RUPT opcode ** 
// Write G from memory 
// Set the ST1 bit of STB 
// Write E-MEM from G 

// Write PCTR (latch priority counter sequence) ** 
// Write SQ 

// Write stage counter B (STB) ** 
// Read 2000 ** 



}; // 99 

void CLK : : doexecW ( int pulse) { execW [pulse] () ; ) 



CPM (CPM.h) 

/**************************************************************************** 

* CPM - CONTROL PULSE MATRIX subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: CPM.h 
* 

* VERSIONS: 

* 

* DESCRIPTION: 

* Control Pulse Matrix for the Block 1 Apollo Guidance Computer prototype (AGC4) 

* 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
#ifndef CPM_H 
idefine CPM_H 

^include "TPG.h" 
^include "SEQ.h" 



class CPM 
{ 
public: 

static subseq instructionSubsequenceDecoder ( 

int counter_subseq, int SO field, int STB_field) ; 

static char* subseqString [ ] ; 

static void controlPulseMatrix () ; 

static void readEPROM(char* fileName, int* eprom) ; 

static int EPR0M1_8 [0x3fff+l] ; 

static int EPROM9_16 [0x3fff+l] ; 

static int EPROM17_24 [0x3fff+l] 

static int EPR0M25_32 [0x3fff+l] 

static int EPROM33__40 [0x3fff+l] ; 

static int EPROM41_48 [0x3fff+l] ; 

static int EPR0M49_56 [0x3fff+l] 

private : 

// Clear the list of currently asserted control pulses, 
static void clearControlPulses () ; 

// Assert the set of control pulses by adding them to the list of currently 

// active control signals. 

static void assert (cpType* pulse); 

// Assert a control pulse by adding it to the list of currently asserted 

// control pulses. 

static void assert (cpType pulse) ; 

static void get_CPM_A (int CPM_A_address) ; 

static void getControlPulses_EPROM(int address) ; 

static void checkEPROM(int inval, int lowbit) ; 

); 

ttendif 



CPM (CPM.cpp) 

/**************************************************************************** 

* CPM - CONTROL PULSE MATRIX subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: CPM.cpp 

* 

* NOTES: see header file. 

* 

**************************************************************** ************* 

*/ 

^include "CPM.h" 

^include "SEQ.h" 

^include "MON.h" 

#±nclude "CTR.h" 

^include "INT.h" 

^include "ADR . h " 

iinclude <stdlib.h> 



char* CPM: : subseqString [ ] 

{ 

"TCO", 

"CCSO ", 

"CCS1 ", 

"NDXO", 

"NDX1 ", 

"RSM3", 

"XCHO", 

"CSO", 

"TSO", 

"ADO", 

"MASKO", 

"MPO", 

"MP1 ", 

"MP3", 

"DVO", 

"DV1 ", 

"SUO", 

"RUPT1 ", 

"RUPT3", 

"STD2 ", 

"PINCO", 

"MINCO", 

"SHINCO", 

"NO_SEQ" 



}; 

subseq CPM: : instructionSubsequenceDecoder ( 

int counter_subseq, int SO field, int STB_field) 



// Combinational logic decodes instruction and the stage count 
// to get the instruction subsequence, 
static subseq decode [16] [4] = { 



{ TCO, 


RUPT1, 


STD2, 


RUPT3 


}, 


// 00 


{ CCSO, 


CCS1, 


NO_SEQ, 


NO_SEQ 


}, 


// 01 


{ NDXO, 


NDX1, 


NO_SEQ, 


RSM3 


}, 


// 02 


{ XCHO, 


NO_SEQ, 


STD2, 


NO_SEQ 


}, 


// 03 


{ NO_SEQ, 


NO_SEQ, 


NO_SEQ, 


NO_SEQ 


}, 


// 04 


{ NO_SEQ, 


NO_SEQ, 


NO_SEQ, 


NO_SEQ 


}, 


// 05 


{ NO_SEQ, 


NO_SEQ, 


NO_SEQ, 


NO_SEQ 


}, 


// 06 


{ NO_SEQ, 


NO_SEQ, 


NO_SEQ, 


NO_SEQ 


}, 


// 07 


{ NO_SEQ, 


NO_SEQ, 


NO_SEQ, 


NO_SEQ 


}, 


// 10 


{ MPO, 


MP1, 


NO_SEQ, 


MP3 


}, 


// 11 


{ DVO, 


DV1, 


STD2, 


NO_SEQ 


}, 


// 12 


{ SUO, 


NO_SEQ, 


STD2, 


NO_SEQ 


}, 


// 13 


{ CSO, 


NO_SEQ, 


STD2, 


NO_SEQ 


}, 


// 14 


{ TSO, 


NO_SEQ, 


STD2, 


NO_SEQ 


}, 


// 15 


{ ADO, 


NO_SEQ, 


STD2, 


NO_SEQ 


}, 


// 16 



{ MASKO, NO_SEQ, STD2, NO_SEQ } // 17 

}; 

if (counter_subseq == PINCSEL) 

return PINCO; 
else if (counter_subseq == MINCSEL) 

return MINCO; 
else 

return decode [SO field] [STB_field] ; 



void CPM: :clearControlPulses () 
I 

for (unsigned i=0; i<MAXPULSES; i++) 
SEQ: :glbl_cp[i] = NO_PULSE; 
) 

void CPM: : assert (cpType* pulse) 
{ 

int j=0; 

for (unsigned i=0; i<MAXPULSES && j<MAX_IPULSES && pulse[j] != NO_PULSE; i++) 

{ 

if(SEQ::glbl_cp[i] == NO_PULSE) 
{ 

SEQ: :glbl_cp[i] = pulse [j]; 

} 
} 
} 

void CPM: : assert (cpType pulse) 

{ 

for (unsigned i=0; i<MAXPULSES; i++) 

{ 

if(SEQ::glbl_cp[i] == NO_PULSE) 
{ 

SEQ: :glbl_cp[i] = pulse; 
break; 
} 
} 
} 

int CPM: :EPR0M1_8 []; 
int CPM: :EPR0M9_16 [] 
int CPM: :EPROM17_24 [] 
int CPM: : EPR0M25_32 [] ; 
int CPM: :EPROM33_40[] ; 
int CPM: :EPROM41_48[] 
int CPM: : EPR0M4 9_5 6 [ ] ; 

void CPM: -.readEPROM (char* fileName, int* eprom) 
{ 

cout « "Reading EPROM: " « fileName « endl; 

// Open the EPROM file. 
FILE* ifp = f open (fileName, "r") ; 
if(!ifp) 
{ 

perror ("fopen failed for source file"); 

exit (-1) ; 
) 

const int addressBytes = 3; // 24— bit address range 
const int sumCheckBytes = 1; 

char buf[4096] ; 

while (fgets (buf, 4096, ifp) ) 

{ 

// process a record 

if (buf [0] != 'S') 

{ 

cout « "Error reading start of EPROM record for: " « fileName « endl; 
exit(-l); 



address 

dec « endl; 



} 

char tmp [256] ; 

strncpy (tmp, Sbuf[2], 2); tmp [2] = ' \0 ' ; 
int totalByteCount = strtol(tmp, 0, 16); 
int mySumCheck = totalByteCount S Oxff; 

strncpy (tmp, Sbuf[4], 6); tmp[addressBytes*2] = ' \0 ' ; 

int address = strtol (tmp, 0, 16); 

mySumCheck = (mySumCheck + ((address & Oxff 0000) » 16)) % 256; 

mySumCheck = (mySumCheck + ((address & 0x00 ff 00) » 8)) % 256; 

mySumCheck = (mySumCheck + ((address S OxOOOOff) )) % 256; 

//cout « hex « totalByteCount « " , " « address « dec « endl; 

int dataBytes = totalByteCount - addressBytes - sumCheckBytes ; 
int i = (addressBytes+2) *2; // index to 1st databyte char, 
for (int j=0; j<dataBytes; j++) 
{ 

// get a data byte 

strncpy (tmp, Sbuf[i], 2); tmp [2] = ' \0 ' ; 

int data = strtol (tmp, 0, 16); 

//cout « hex « data « dec « endl; 

mySumCheck = (mySumCheck + data) % 256; 

// The H/W AGC needs negative logic in the EPROMS (0=asserted) 

// but this simulator needs positive logic, so we bit flip the word. 

//eprom [address] = data; 

eprom [address] = ( (~data) & Oxff); 

address++; 

i+=2; // bump to next databyte char 

} 

strncpy (tmp, Sbuf[i], 2); tmp [2] = ' \0 ' ; 
int sumCheck = strtol (tmp, 0, 16); 

if(sumCheck != ( (~mySumCheck) & Oxff)) 
{ 

cout « "sumCheck failed; file: " « filename « ", address : " « hex « 

« ", sumCheck: " « sumCheck « ", mySumCheck: " « mySumCheck « 

exit(-l) ; 



} 

f close (ifp) ; 



void CPM: :checkEPROM(int inval, int lowbit) 
{ 

for (int mask=Oxl; inval SS mask 1=0x100; mask=mask«l) 
{ 

if (inval & mask) 

assert ( (cpType) lowbit) ; 
lowbit ++; 
} 
} 



// perform the CPM-A EPROM function using the EPROM files 
void CPM: : getControlPulses_EPROM (int address) 
{ 

checkEPROM (EPR0M1_8 [address], 1) ; 

checkEPROM(EPROM9_16 [address], 9), 

checkEPROM (EPR0M1 7_24 [address] , 17) , 

checkEPROM (EPR0M25__32 [address] , 25) ; 

checkEPROM (EPROM33__40 [address] , 33) ; 

CheckEPROM (EPROM41_4 8 [address] , 41) , 

CheckEPROM (EPR0M4 9_56 [address ] , 49) , 
} 



void CPM: : get_CPM_A ( int address) 



// Use the EPROM tables to get the CPM—A control pulses documented 
// in R-393. 
getControlPulses_EPROM (address ) ; 

// Now add some additional control pulses implied, but not documented 

// in R-393. 

i f (SEQ : : regi st er_LOOPCTR . read () =6) 

{ 

assert (ST2) ; // STA <- 2 

assert (CLCTR) ; // CTR <- 
} 

// Wow that the EPROM tables are used for CPM—A, this function is only 
// used to display the instruction subsequence in MON. 
SEQ: :glbl_subseq = CPM: : instructionSubsequenceDecoder ( 

CTR: :getSubseq() , SEQ: :register_SQ.read() , SEQ: : register_STB . read () ) ; 

// These were in CPM-C, where the rest of the control signal assertions 
// related to their use still are, but were moved here because WB and RB 
// are part of the R-393 sequence tables. Check CPM-C to see how these 
// assertions fit in (the former use is commented out there) . 

switch (TPG: : register_SG . read ( ) ) 

{ 

case PWRON: 

assert (WB) ; / / TC GOPROG copied to B (see CPM-C for related assertions) 
break; 

case TP12: 

if(SEQ::register_SNI.read() == 1) 
{ 

if(!INT: :IRQ() ) 

{ 



// Normal instruction 

assert (RB) ; // SQ <- B (see CPM-C for related assertions) 



} 
} 
break; 



default: ; 

} 



) 



void CPM: :controlPulseMatrix() 

{ 

// Combination logic decodes time pulse, subsequence, branch register, and 
// "select next instruction" latch to get control pulses associated with 
// those states. 

// Get rid of any old control pulses. 
clearControlPulses () ; 

// SUBSYSTEM A 

int SB2_field = 0; 
int SBl_field = 0; 

switch (CTR: : getSubseq () ) 

{ 

case PINCSEL: 

SB2_field = 0; 

SB1_ field = 1; 

break; 
case MINCSEL: 

SB2_field = 1; 

SBl_field = 0; 

break; 
default : 



SB2_field = 0; 
SBl_field = 0; 



); 



« 


8) 


1 


« 


6) 


1 


« 


2) 


1 


« 


1) 


1 



int CPM_A_address = 0; 

CPM_A_address = 

(SB2_f±eld « 13) I 
(SBl_field « 12) I 
(SEQ: : regi ster_SQ. read () 
(SEQ : : register_STB . read () 
(TPG: : register_SG . read() 
(SEQ : : register_BRl . read () 
SEQ: :register_BR2.read() ; 



// Construct address into CPM-A control pulse ROM: 
// Address bits (bit 1 is LSB) 
register BR2 
register BR1 
register SG (4) 
register STB (2) 
register SQ (4) 

STB_01 (from CTR: 
STB_02 (from CTR: 



get_ 





// 


1: 




// 


2: 




// 


3-6: 




// 


7,8: 




// 


9-12: 




// 


13: 




// 


14: 


CPM_ 


_A (CPM_ 


A_address) ; 



selects PINC, 
selects PINC, 



MINC, 
MINC, 



or none) 
or none) 



// 



******************************************************************************* 



//******************************************************************************* 
// SUBSYSTEM B 

// NOTE: WG, RSC, WSC are generated by SUBSYSTEM A. Those 3 signals are only used 
// by SUBSYSTEM B; not anywhere else. 

// CONSIDER MOVING TO ADR **********************g 

if (SEQ: :isAsserted(WG)) 

{ 

switch (ADR : : regi ster_S. read () ) 

{ 



case 020 
case 021 
case 022 
case 023 



assert (W20) ; break; 
assert (W21) ; break; 
assert (W22) ; break; 
assert (W23) ; break; 



default: if(ADR::GTR_17()) assert (WGn) ; // not a central register 

} 
} 
if (SEQ: : isAsserted(RSC) ) 



{ 



switch (ADR : : regi ster_S. read ()) 
{ 



case 


00 


assert (RAO) , 


break; 


case 


01 


assert (RA1) , 


break; 


case 


02 


assert (RA2) , 


break; 


case 


03 


assert (RA3) , 


break; 


case 


04 


assert (RA4) , 


break; 


case 


05 


assert (RA5) , 


break; 


case 


06 


assert (RA6) , 


break; 


case 


07 


assert (RAT) , 


break; 


case 


OK 


1: assert (RAlOj 


; break; 


case 


01. 


I: assert (RA11) 


; break; 


case 


01. 


2: assert (RA12) 


; break; 


case 


01. 


3; assert (RA13j 


; break; 


case 


01' 


i: assert (RA14j 


; break; 


case 


01. 


5 ; assert (RBK) , 


break; 



default: break; // 016, 017 

} 



if (SEQ: :isAsserted(WSC) ) 

switch (ADR : : regi ster_S. read () ) 



{ 

case 00 : 



assert (WAO) ; break; 



case 


01: 


case 


02: 


case 


03: 


case 


010 


case 


Oil 


case 


012 


case 


013 


case 


014 


case 


015 


default : 



assert (WA1) ; break; 
assert (WA2) ; break; 
assert (WA3) ; break; 
assert (WA10) ; break; 
assert (WA11) ; break; 
assert (WA12) ; break; 
assert (WA13) ; break; 
assert (WA14) ; break; 
assert (WBK) ; break; 
break; // 016, 017 



// 



******************************************************************************* 



//******************************************************************************* 
// SUBSYSTEM C 

switch (TPG: : register_SG . read ( ) ) 
{ 

case STBY: 

assert (GENRST) ; 

// inhibit all alarms 

// init "SQ" complex 

// clear branch registers 

// stage registers are not cleared; should they be? 

// zeroes are already gated onto bus when no read pulses are asserted. 
// to zero synchronous— clocked registers, assert write pulses here. 
// Level-triggered registers are zeroed by GENRST anded with CLK2 . 
break; 

case PWRON: 

assert (R2000) ; 

//assert (WB) ; // TC GOPROG copied to B (implemented in CPM-A) 

break; 

case TP1 : 

// Moved this from TP12 to TP1 because CLISQ was getting cleared in the 
// hardware AGC before TPG was clocked; therefore TPG was not seeing the 
// SNI indication. 
assert (CLISQ) ; // SNI <- 



case TP5 : 

// EMEM must be available in G register by TP6 



if( ADR: :GTR_17() 

!ADR: :GTR_1777() 

!SEQ: : isAsserted (SDV1 ) 

!SEQ: : isAsserted (SMP1) ) 



&& 
&& 
&& 



// not a central register 

// not fixed memory 

// not a loop counter subseq 



assert (SBWG) ; 

} 

if(ADR::EQU_17() ) assert (INH) ; 

if ( ADR: :EQU_16 () ) assert (CLINH) ; 

break; 



// INHINT (INDEX 017) 
// RELINT (INDEX 016) 



case TP6: 

// FMEM must be available in G register by TP7 
iff ADR : : GTR_1 777 () 



memory 



!SEQ: : isAsserted (SDV1 ) 
!SEQ: : isAsserted (SMP1) ) 



&& 



SS // not eraseable 

// not a loop counter subseq 



) 
break; 



assert (SBWG) ; 



case TP11: 

// G register written to memory beginning at TP11; Memory updates are in 
// G by TP10 for all normal and extracode instructions , but the PINC, MINC, 



// and SHINC sequences write to G in TP10 because they need to update the 

// parity bit . 

if( ADR: :GTR_17() SS // not a central register 

!ADR: :GTR_1777 () SS // not fixed memory 

!SEQ: :isAsserted(SDVl) SS // not a loop counter subseq 

!SEQ: : isAsserted (SMP1) ) 
{ 

assert (WE) ; 
} 

// Additional interrupts are inhibited during servicing of an interrupt; 
// Remove the inhibition when RESUME is executed (INDEX 025) 
if(SEQ: : isAsserted (SRSM3) ) assert (CLRP) ; 
break; 

case TP12: 

// DISABLE INPUT CHANGE TO PRIORITY COUNTER (reenable after TP1) 

// Check the priority counters; service any waiting inputs on the next 

// memory cycle. 

assert (WPCTR) ; 

if (SEQ: : register_SNI ,read() == 1) // if SNI is set, get next instruction 

{ 

if (INT: : IRQ() ) // if interrupt requested (see CPM—A for similar assertion) 

{ 

// Interrupt : SQ <- (the default RW bus state) 

assert (RPT) ; // latch interrupt vector 

assert (SETSTB) ; // STB <- 1 

) 

else 
{ 

// Normal instruction 

//assert (RB) ; // SQ <- B (implemented in CPM-A) 

assert (CLSTB) ; // STB <- 

} 

assert (WSQ) ; 
assert (CLSTA) ; // STA <- 



instruction 



// Remove inhibition of interrupts (if they were) AFTER the next 

assert (CLINH1) ; // INHINT1 <- 
} 

else if (CTR: :getSubseq() == NOPSEL) // if previous sequence was not a counter 
{ 

// get next sequence for same instruction. 

assert (WSTB) ; // STB <- STA 

assert (CLSTA) ; // STA <- 

) 

//assert (CLISQ) ; // SNI <- (moved to TP1) 

break; 

default: ; 

} 



CRG (CRG.h) 

/**************************************************************************** 

* CRG - ADDRESSABLE CENTRAL REGISTER subsystem 
* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: CRG.h 
* 

* VERSIONS: 

* 

* DESCRIPTION: 

* Addressable Central Registers for the Block 1 Apollo Guidance Computer 

* prototype (AGC4) . 

* 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
iifndef CRG_H 
idefine CRG_H 

^include "reg.h" 

class regQ : public reg 

public: 

regQ() : reg (16, "%06o") { } 

}; 

class regZ : public reg 

public: 

regZ() : reg (16, "%06o") { } 

}; 

class regLP : public reg 
{ 
public: 

regLP () : reg (16, "%06o") { } 

}; 

class regA : public reg 
{ 
public: 

regA() : reg (16, "%06o") { } 

}; 

class CRG 
{ 
public: 

static void execWP_GENRST ( ) ; 

static void execRP_RQ ( ) ; 
static void execRP_RAl () ; 
static void execWP_WQ() ; 
static void execWP_WAl () ; 
static void execRP_RZ () ; 
static void execRP_RA2 ( ) ; 
static void execWP_WZ () ; 
static void execWP_WA2() ; 
static void execRP_RLP ( ) ; 
static void execRP_RA3 ( ) ; 
static void execRP_RA() ; 
static void execRP_RAO ( ) ; 
static void execWP_WA() ; 
static void execWP_WAO() ; 
static void execWP_WALP () ; 



}; 

#endif 



static void execWP_WLP ( ) ; 
static void execWP_WA3() ; 



static regQ register_Q; // return address 
static regZ register_Z; // program counter 
static regLP register_LP ; // lower accumulator 
static regA register_A; // accumulator 

static unsigned conv_WALP_LP [ ] ; 
static unsigned conv_WALP_A[] ; 
static unsigned conv_WLP[]; 



CRG (CRG.cpp) 

/**************************************************************************** 

* CRG - ADDRESSABLE CENTRAL REGISTER subsystem 
* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: CRG.cpp 

* 

* NOTES: see header file. 

* 
**************************************************************** 

*/ 

^include "CRG.h" 
§in cl ude "SEQ . h " 
^include "BUS.h" 

regQ CRG: :register_Q; // return address 
regZ CRG: :register_Z; // program counter 
regLP CRG: :register_LP; // lower accumulator 
regA CRG: : register_A; // accumulator 

// BUS LINE ASSIGNMENTS 

// Specify the assignment of bus lines to the inputs of a register (for a 'write' 

// operation into a register) . Each ' conv_ ' array specifies the inputs into a 

// single register. The index into the array corresponds to the bit position in 

// the register, where the first parameter (index=0) is bit 16 of the register (msb) 

// and the last parameter (index=15) is register bit 1 (lsb) . The value of 

// the parameter identifies the bus line assigned to that register bit. 'BX' 

// means 'don't care'; i.e.: leave that register bit alone. 



unsigned CRG : : conv_WALP_LP [ ] = 

{ BX, BX, Bl, BX, BX, BX, BX, BX, BX, BX, BX, BX, BX, BX, BX, BX } ; 

unsigned CRG : : conv_WALP_A [ ] = 

{ SG, SG, US, B14, B13, B12, Bll, BIO, B9, B8, Bl , B6, B5, B4, B3, B2 } ; 

unsigned CRG : : conv__WLP [ ] = 

{ Bl, Bl, DO, B14, B13, B12, Bll, BIO, B9, B8, B7, B6, B5, B4, B3, B2 }; 



void CRG : : execWP_GENRST ( ) 

{ 

register_Q. write (0) ; 

register_Z . write (0) ; 

register_LP . write (0) ; 

register_A. write (0) ; 
} 



void CRG : : execRP_RQ ( ) 

{ 

BUS : : glbl_READ_BUS = register_Q. read() , 

} 

void CRG: : execRP_RAl () 

{ 

BUS : : glbl_READ_BUS = register_Q . read () , 

} 



void CRG : : execWP_WQ ( ) 
{ 

register_Q .write (BUS: :glbl_WRITE_BUS) ; 
) 

void CRG: :execWP_WAl () 

{ 

register_Q. write (BUS: :glbl_WRITE_BUS) ; 



void CRG : : execRP_RZ ( ) 

BUS : : glbl_READ_BUS = register_Z . read () ; 

void CRG: : execRP_RA2 () 

BUS : : glbl_READ_BUS = register_Z . read () ; 

void CRG : : execWP_WZ ( ) 

register_Z .write (BUS: :glbl_WRITE_BUS) ; 

void CRG: : execWP_WA2 () 

register_Z .write (BUS: :glbl_WRITE_BUS) ; 

void CRG : : execRP_RLP ( ) 

BUS : : glbl_READ_BUS = register_LP .read() ; 

void CRG : : execRP_RA3 ( ) 

BUS : : glbl_READ_BUS = register_LP .read() ; 

void CRG: : execWP_WALP () 

register_LP . writeShift (BUS: :glbl_WRITE_BUS, CRG: : conv_WALP_LP ) , 
register_A.writeShift (BUS: :glbl_WRITE_BUS, CRG: : conv_WALP_A) ; 

void CRG : : execWP_WLP ( ) 

register_LP . writeShift (BUS: :glbl_WRITE_BUS, CRG: :conv_WLP) ; 

void CRG : : execWP_WA3 ( ) 

register_LP. writeShift (BUS: :glbl_WRITE_BUS, CRG: :conv_WLP) ; 

void CRG : : execRP_RA ( ) 

BUS : : glbl_READ_BUS = register_A . read () ; 

void CRG: : execRP_RAO () 

BUS : : glbl_READ_BUS = register_A . read () ; 

void CRG : : execWP__WA ( ) 

register_A. write (BUS: :glbl_WRITE_BUS) ; 

void CRG: : execWP_WAO () 

register_A. write (BUS: :glbl_WRITE_BUS) ; 



CTR (CTR.h) 



/**************************************************************************** 

* CTR - INVOLUNTARY PRIORITY COUNTER subsystem 



AUTHOR : 

DATE: 

FILE: 



John Pultorak 

10/25/02 

CTR.h 



* VERSIONS: 

* 

* DESCRIPTION: 

* Involuntary Counters for the Block 1 Apollo Guidance Computer prototype (AGC4) 

* 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
ttifndef CTR_H 
idefine CTR_H 



^include "reg.h" 

enum ctrNumber { // indexes for priority cells 
OVCTR =0, 



// Block II puts TIME2 first 



TIME2 


=1, 


TIME1 


=2, 


TIME3 


=3, 


TIME4 


=4, 



}; 

enum ctrAddr { // octal addresses of counters 

// Note: In Block 1, TIME1 preceeds TIME2 . In Block II, 
// this is reversed: TIME2 preceeds TIME1 . This reversal 
// was done so that the most significant time word occurs 
// at the lower address in the 2 word AGC clock. Therefore, 
// a common AGC software routine can be used to read the 
// time. 
OVCTR_ADDR =0034, 





TIME2_ADDR 


=0035, 


// 


Block II pi 




TIME1_ADDR 


=0036, 








TIME3_ADDR 


=0037, 








TIME4_ADDR 


=0040, 








SPARE1_ADDR 


=0041, 








SPARE2_ADDR 


=0042, 






}; 


SPARE3_ADDR 


=0043 






enum 


pCntrType { 










NOPSEL 


=0, 


// 


NO COUNTER 




PINCSEL 


=1, 


// 


PINC 




MINCSEL 


=2 


// MINC 



class regUpCELL : public reg 
{ 
public: 

// Bit synchronize the counter inputs. 

regUpCELL() : reg (8, "%03o") { } 



}; 



class regDnCELL : public reg 
public: 



// Bit synchronize the counter inputs. 
regDnCELL() : reg(8, "%03o") { } 



class CTR 
{ 
public: 

static void execWP_GENRST ( ) ; 

static void execWP_WPCTR ( ) ; 

static void execRP_RSCT ( ) ; 

static void execWP_WOVR ( ) ; 

static void execWP_WOVC ( ) ; 

static unsigned getSubseqf) ; 

static unsigned pcUp[]; 

static unsigned pcDn[]; 

static regUpCELL register_UpCELL; // latches the selected priority counter cell (0—7) 

static regDnCELL register_DnCELL; // latches the selected priority counter cell (0—7) 

private: 

static void resetAllpcf) ; 

); 

iendif 



CTR (CTR.cpp) 

/**************************************************************************** 

* CTR - INVOLUNTARY PRIORITY COUNTER subsystem 
* 

* AUTHOR: John Pultorak 

* DATE: 10/25/02 

* FILE: CTR.cpp 

* 

* NOTES: see header file. 

* 
**************************************************************** 

*/ 

^include "CTR . h " 

^include "INT.h" 

^include "BUS.h" 

^include "SEQ.h" 

regUpCELL CTR: : register_UpCELL; // latches the selected priority counter cell (0-7 (decimal)) 
regDnCELL CTR: : register_DnCELL; // latches the selected priority counter cell (0-7 (decimal)) 

unsigned CTR: :pcUp[8] ; 
unsigned CTR: :pcDn[8] ; 



// PRIORITY COUNTERS 

// **************************************************** 

// The interrupt priorities are stored in RPCELL as 1-5, but 

// the priority counter priorities are stored as 0-7; this 

// inconsistency should be fixed, probably. Also, the method 

// of address determination for the priority counters needs work 

void CTR: : resetAllpc () 
{ 

for(int i=0; i<8; i++) { pcUp[i]=0; pcDn[i]=0; } 
} 

// priority encoder; outputs 0-7; 0=highest priority (OVCTR) , 1=TIME2, 2=TIME1, etc 
static bool newPriority = true; // a simulator performance optimization; not in the hardware AGC 
unsigned getPriority () 
{ 

// simulator optimization; don't recompute priority if the priority inputs haven't 
changed 

static unsigned priority = 7; // default (lowest priority) 

if (! newPriority) return priority; 

priority = 7; // default (lowest priority) 
for(int i=0; i<8; i++) 

{ 

if (CTR: :register_UpCELL.readField(i+l,i+l) / 
CTR: : register_DnCELL . readField (i+1 , i+1) ) 
{ 

priority = i; 
break; 
} 
} 

newPriority = false; 
return priority; 
) 



unsigned CTR: :getSubseq() 
{ 

unsigned pc = getPriority () ; 

unsigned upCell = CTR: :register_UpCELL.readField(pc+l,pc+l) , 
unsigned dnCell = CTR: :register_DnCELL. readField (pc+l,pc+l) , 



if(upCell = 1 £& dnCell == 0) 

return PINCSEL; 
else iffupCell == SS dnCell == 1) 

return MINCSEL; 
else 

return NOPSEL; 



void CTR : : execWP_GENRST ( ) 
{ 

register_UpCELL . write (0) ; 

register_DnCELL . write (0) ; 



resetAllpc () ; 



void CTR: :execWP_WPCTR() 
{ 

// transfer cell data into up and down synch registers 

for(int i=0; i<8; i++) 
{ 

register_UpCELL . writeField (i+1, i+l,pcUp[i] ) ; 

register_DnCELL . writeField ( i+1 , i+l,pcDn[i] ) ; 

} 

newPriority=true; // a simulator performance optimization; not in hardware AGC 



// Selected counter address is requested at TP1 . 
// Counter address is latched at TP12 

void CTR : : execRP_RSCT () 
{ 

BUS : : glbl_READ_BUS = 034 + getPriority () ; 
) 

void CTR : : execWP_WOVR () 
{ 

unsigned pc = getPriority () ; 

if (register_UpCELL . readField (pc+1, pc+1) ) 

{ 

pcUp[pc]=0; 

} 

if (register_DnCELL . readField(pc+l,pc+l) ) 

{ 

pcDn[pc]=0; 

) 

// generate various actions in response to counter overflows: 
switch (BUS: : testOver flow (BUS : : glbl_WRITE_BUS) ) 
{ 

case POS_OVF: // positive overflow 

switch (getPriority () ) // get the counter 

{ 

case TIME1 : CTR: :pcUp[TIME2]=l; break; // overflow from TIME1 increments 



TIME2 

T3RUPT 

DSRUPT 



case TIME3: INT : : rupt [T3RUPT] =1; break; // overflow from TIME3 triggers 

case TIME4 : INT: : rupt [DSRUPT] =1; break; // overflow from TIME4 triggers 

} 

break; 
case NEG_OVF: break; // no actions for negative counter overflow 



void CTR: :execWP_WOVC() 
{ 



switch (BUS: : testOver flow (BUS : : glbl_WRITE_BUS) ) 

{ 

case POS_OVF: CTR: :pcUp[OVCTR] =1; break; // incr OVCTR (034) 
case NEG_OVF: CTR :: pcDn [OVCTR] =1 ; break; // deer OVCTR (034) 

} 



// register_PCELL: Overflow from the selected counter appears 
// on the bus when WOVR or WOVC is asserted; 
// it could be used to trigger an interrupt 
// or routed to increment another counter 



DSP (DSP.h) 

/**************************************************************************** 

* DSP - DSKY DISPLAY subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: DSP.h 
* 

* VERSIONS: 

* 

* DESCRIPTION: 

* DSKY Display for the Block 1 Apollo Guidance Computer prototype (AGC4) . 

* 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
#ifndef DSP_H 
idefine DSP_H 

class DSP 
{ 
public: 

// DSKY display 

// major mode display 
static char MD1; 
static char MD2; 

// verb display 
static char VD1; 
static char VD2; 

// noun display 
static char ND1; 
static char ND2; 

// Rl 
static char R1S; 
static char R1D1; 
static char R1D2; 
static char R1D3; 
static char R1D4; 
static char R1D5; 

// R2 
static char R2S; 
static char R2D1; 
static char R2D2; 
static char R2D3; 
static char R2D4; 
static char R2D5; 

// R3 
static char R3S; 
static char R3D1; 
static char R3D2; 
static char R3D3; 
static char R3D4; 
static char R3D5; 

// These flags control the sign; if both bits are or 1, there is no sign. 

// Otherwise, the sign is set by the selected bit . 
static unsigned R1SP; 
static unsigned R1SM; 
static unsigned R2SP; 
static unsigned R2SM; 
static unsigned R3SP; 
static unsigned R3SM; 



// verb/noun flash 
static unsigned flash; 

static void clearOutO () ; 

static char signConv (unsigned p, unsigned m) ; 

static char outConv (unsigned in); 

static void decodeRelayfford (unsigned in); 



}; 

#endif 



DSP (DSP.cpp) 

/**************************************************************************** 

* DSP - DSKY DISPLAY subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: DSP.cpp 

* 

* NOTES: see header file. 

* 
**************************************************************** 

*/ 

^include "DSP.h" 

^include <string.h> 

^include <iostream.h> 

^include <stdio.h> 

bool dskyChanged = false; // true when DSKY display changes 

// major mode display 
char DSP: :MD1=0; 
char DSP: :MD2=0; 

// verb display 
char DSP: :VD1=0; 
char DSP: :VD2=0; 

// noun display 
char DSP: :ND1=0; 
char DSP: :ND2=0; 

// Rl 
char DSP: :R1S=0; 
char DSP: :R1D1=0; 
char DSP: :R1D2=0; 
char DSP: :R1D3=0; 
char DSP: :R1D4=0; 
char DSP: :R1D5=0; 

// R2 
char DSP: :R2S=0; 
char DSP: :R2D1=0; 
char DSP: :R2D2=0; 
char DSP: :R2D3=0; 
char DSP: :R2D4=0; 
char DSP: :R2D5=0; 

// R3 
char DSP: :R3S=0; 
char DSP: :R3D1=0; 
char DSP: :R3D2=0; 
char DSP : : R3D3=0 ; 
char DSP: :R3D4=0; 
char DSP: :R3D5=0; 

// These flags control the sign; if both bits are or 1, there is no sign. 

// Otherwise, the sign is set by the selected bit . 
unsigned DSP: :R1SP=0; 
unsigned DSP: :R1SM=0; 
unsigned DSP: :R2SP=0; 
unsigned DSP: :R2SM=0; 
unsigned DSP: :R3SP=0; 
unsigned DSP: :R3SM=0; 

// flag controls 1 Hz flash of verb and noun display 
unsigned DSP :: flash = 0; // 0= flash off, 1= flash on 

void DSP : : clearOutO () 
{ 

MD1 = MD2 = ' ' ; // major mode display 

VD1 = VD2 = ' '; // verb display 



ND1 = ND2 = ' '; // noun display 

R1S = R1D1 = R1D2 = R1D3 = R1D4 = R1D5 = 

R2S = R2D1 = R2D2 = R2D3 = R2D4 = R2D5 = 

R3S = R3D1 = R3D2 = R3D3 = R3D4 = R3D5 = 



// Rl 
// R2 
// R3 



R1SP = R1SM = 0; 
R2SP = R2SM = 0; 
R3SP = R3SM = 0; 



char DSP :: signConv (unsigned p, unsigned m) 



{ 



if(p SS !m) 

ret urn ' + ' 
else if (m SS !p) 

ret urn ' - ' 
else 

ret urn ' ' 



} 



char DSP :: outConv (unsigned in) 

{ 

switch (in) 

{ 



case 


000 


ret urn 


' ' , 


case 


025 


ret urn 


'0', 


case 


003 


ret urn 


'1 ' , 


case 


031 


ret urn 


'2' , 


case 


033 


ret urn 


'3' , 


case 


on 


ret urn 


'4 ' , 


case 


036 


ret urn 


'5' , 


case 


034 


ret urn 


'6' , 


case 


023 


ret urn 


'T , 


case 


035 


ret urn 


•8', 


case 

} 

retui 


037 


ret urn 


'9', 


rn ' 


'; // error 





) 

void DSP : : decodeRelayWord (unsigned in) 

{ 

unsigned charSelect = (in S 074000) » 11; // get bits 15-12 

unsigned bll = (in S 02000) » 10; // get bit 11 

unsigned bHigh = (in S 01740) » 5; // get bits 10-6 

unsigned bLow = in S 037; 

#ifdef NOTDEF 

char buf[80]; 
sprintf(buf, "bitsl5-12 : %02o, Bitll: %01o, bitsl0-6: %02o, bits5-l : %02o", 
charSelect, bll, bHigh, bLow); 
cout « buf « endl; 



#endif 



dskyChanged = true; 



switch (charSelect) 

{ 



case 013 
case 012 
case Oil 
case 010 



// UP ACT not implemented 



MD1 = outConv (bHigh) ; MD2 = outConv (bLow) ; break; 

VD1 = outConv (bHigh) ; VD2 = outConv (bLow) ; flash = bll; break; 

ND1 = outConv (bHigh) ; ND2 = outConv (bLow) ; break; 

R1D1 = outConv (bLow) ; break; 



case 007: R1SP = bll; R1S = signConv (R1SP, R1SM) ; 

R1D2 = outConv (bHigh) ; 
R1D3 = outConv (bLow) ; break; 

case 006: R1SM = bll; R1S = signConv (R1SP, R1SM) ; 

R1D4 = outConv (bHigh) ; 
R1D5 = outConv (bLow) ; break; 



case 005: R2SP = bll; R2S = signConv (R2SP, R2SM) ; 

R2D1 = outConv (bHigh) ; 
R2D2 = outConv (bLow) ; break; 



case 004: R2SM = bll; R2S = signConv (R2SP, R2SM) , 

R2D3 = outConv (bHigh) ; 
R2D4 = outConv (bLow) ; break; 

case 003: R2D5 = outConv (bHigh) ; 

R3D1 = outConv (bLow) ; break; 

case 002: R3SP = bll; R3S = signConv (R3SP, R3SM) , 

R3D2 = outConv (bHigh) ; 
R3D3 = outConv (bLow) ; break; 

case 001: R3SM = bll; R3S = signConv (R3SP, R3SM) , 

R3D4 = outConv (bHigh) ; 
R3D5 = outConv (bLow) ; break; 



INP (INP.h) 

/**************************************************************************** 

* INP - INPUT REGISTER subsystem 
* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: INP.h 
* 

* VERSIONS: 

* 

* DESCRIPTION: 

* Input Registers for the Block 1 Apollo Guidance Computer prototype (AGC4) 

* 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
#ifndef INP_H 
idefine INP_H 

^include "reg.h" 

class reglnO : public reg 
{ ' 

public: 

regln0() : reg (16, "%06o") { } 

}; 

class reglnl : public reg 
{ 
public: 

reglnl () : reg (16, "%06o") { } 

}; 

class regln2 : public reg 

public: 

regln2() : reg (16, "%06o") { } 

}; 

class regln3 : public reg 
{ 
public: 

regln3() : reg (16, "%06o") { } 

}; 

class INP 
{ 
public: 

static void execRP_RA4() ; 

static void ex ecRP_RA5 () ; 

static void execRP_RA6 ( ) ; 

static void execRP_RA7 ( ) ; 

static reglnO register_INO; // input register 

static reglnl register_INl; // input register 1 

static regln2 register_IN2 ; // input register 2 

static regln3 register_IN3; // input register 3 

}; 

#endif 



INP (INP.cpp) 

/**************************************************************************** 

* INP - INPUT REGISTER subsystem 
* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: INP.cpp 

* 

* NOTES: see header file. 

* 

**************************************************************** ************* 

*/ 

^include "INP.h" 

^include "SEQ.h" 

iinclude "KBD . h " 

^include "MDN.h" 

^include "BUS.h" 

reglnO INP : :register_INO; // input register 

reglnl INP : :register_INl; // input register 1 

regln2 INP : :register_IN2; // input register 2 

regln3 INP : : register_IN3; // input register 3 

void INP : : execRP_RA4 () 

{ 

// Sample the state of the inputs at the moment the 
// read pulse is asserted. In the H/W implementation, 
// register is a buffer, not a latch. 

register_INO . writeField (5,1, KBD : :kbd) ; 

register_INO .writeField(6, 6, 0) ; // actually should be keypressed strobe 

register_INO .writeField (14, 14, HON: :SA) ; 

register_INO . elk () ; 

BUS : : glbl_READ_BUS = register_INO. read () ; 
} 



void INP : : execRP_RA5 ( ) 

BUS : : glbl_READ_BUS = register_INl . read () , 

void INP : : execRP_RA 6 () 

BUS : : glbl_READ_BUS = register_IN2 . read () , 

void INP : : execKP_RA 7 () 

BUS : : glbl_READ_BUS = register_IN3. read () , 



INT (INT.h) 



/**************************************************************************** 

* INT - PRIORITY INTERRUPT subsystem 



* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: INT.h 
* 

* VERSIONS: 

* 

* DESCRIPTION: 



* DESCRIPTION: 

* Priority Interrupts for the Block 1 Apollo Guidance Computer prototype (AGC4) 

* 

* SOURCES: 
Mostly based on information from "Logical Description for the Apollo 
Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 
Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 



* Blair-Smith, R-393, MIT 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
#ifndef INT_H 
idefine INT_H 

^include "reg.h" 

enum ruptAddress { 

// Addresses for service routines of vectored interrupts 
T3RUPT_ADDR =02004, // option 1: overflow of TIME 3 

ERRUPT_ADDR =02010, // option 2: error signal 

DSRUPT_ADDR =02014, // option 3: telemetry end pulse or TIME 4 overflow 

KEYRUPT_ADDR =02020, // option 4: activity from MARK, keyboard, or tape reader 

}; 

enum ruptNumber { 

// Option number (selects rupt priority cell) 

// NOTE: the priority cells (rupt[]) are indexed 0—4, but stored in the 

// RPCELL register as 1-5; (0 in RPCELL means no interrupt) 

T3RUPT =0, // option 1: overflow of TIME 3 

ERRUPT =1, // option 2: error signal 

DSRUPT =2, // option 3: telemetry end pulse or TIME 4 overflow 

KEYRUPT =3, // option 4: activity from MARK, keyboard, or tape reader 

}; 

class regRPCELL : public reg 
{ 
public: 

regRPCELL () : reg (5, "%02o") { } 

}; 

// also inhibits additional interrupts while an interrupt is being processed 

class reglNHINTl : public reg 
{ 
public: 

reglNHINTl () : reg (1 , "%01o") { } 

}; 

class reglNHINT : public reg 

public: 

reglNHINT () : reg (1 , "%01o") { } 

}; 

class INT 

{ 

public: 

friend class CLK; 

friend class MON; 

static void execRP_RRPA ( ) ; 



static 


void 


execWP_ 


_GENRST () 


static 


void 


execWP_ 


_RPT() ; 


static 


void 


execWP_ 


_KRPT () ; 


static 


void 


execWP_ 


_CLRP () ; 


static 


void 


execWP_ 


_WOVT() ; 


static 


void 


execWP_ 


_CLINH1 () 


static 


void 


execWP_ 


-INH(); 


static 


void 


execWP_ 


_CLINH () ; 



static bool IRQ(); // returns true if an interrupt is requested 
static unsigned rupt[]; 



private: 



}; 

ttendif 



static void resetAHRupt () ; 
static unsigned getPriorityRupt () ; 

static regRPCELL register_RPCELL; // latches the selected priority interrupt vector (1—5) 
static reglNHINTl register_INHINTl ; // inhibits interrupts for 1 instruction (on WOVI) 
static reglNHINT register_INHINT; // inhibits interrupts on INHINT, reenables on RELINT 



INT (INT.cpp) 

/**************************************************************************** 

* INT - PRIORITY INTERRUPT subsystem 
* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: INT.cpp 

* 

* NOTES: see header file. 

* 
**************************************************************** 

*/ 

^include "INT.h" 
^include "SEQ.h" 
^include "BUS.h" 

regRPCELL INT: : register_RPCELL; // latches the selected priority interrupt vector (1-5) 
reglNHINTl INT: : register_INHINTl ; // inhibits interrupts for 1 instruction (on WOVI) 
reglNHINT INT: : register_INHINT; // inhibits interrupts on INHINT, reenables on RELINT 

// NOTE: the priority cells (rupt[]) are indexed 0—4, but stored in the 
// RPCELL register as 1-5; (0 in RPCELL means no interrupt) 
unsigned INT: : rupt [5] ; 



bool INT: :IRQ() 
{ 

iff INT : : getPriorityRupt ( ) // if interrupt 

requested 

serviced 

instruction 

{ 



SS INT: : register_RPCELL. read () == // and interrupt not currently being 

&& INT: : register_INHINTl . read () == // and interrupt not inhibited for 1 

&& INT: : register_INHINT . read () == 0) // and interrupts enabled (RELINT) 
return true; 



} 

return false; 

} 

void INT : : resetAHRupt ( ) 
{ 

for(int i=0; i<5; i++) { rupt[i]=0; ) 
) 

// interrupt vector; outputs 1-5 (decimal) = vector; == no interrupt 
unsigned INT: : getPriorityRupt () 
{ 

for(int i=0; i<5; i++) { if (rupt [i] ) return i+1; } 

return 0; 
} 

void INT: :execRP_RRPA() 

{ 

BUS : : glbl_READ_BUS = 02000 + (register_RPCELL. read() « 2); 

} 



// latches the selected priority interrupt vector (1—5) 

// also inhibits additional interrupts while an interrupt is being processed 



void INT : : execWP_GENRST ( ) 
{ 

register_RPCELL . write (0) ; 

register_INHINT . write (1) ; 

resetAHRupt () ; 
} 

void INT : : execWP_RPT ( ) 

{ 



register_RPCELL . write (INT: : getPriorityRupt ()) ; 
} 

void INT: : execWP_KRPT () 
{ 

INT: : rupt [register_RPCELL . read ()-l] = 0; 
} 

void INT: :execWP_CLRP() 

{ 

register_RPCELL . write (0) ; 

} 



// INHINT1 : inhibits interrupts for 1 instruction (on WOVI) 

void INT: :execWP_WOVI() 

{ 

if (BUS : : testOverflow (BUS : : glbl_WRITE_BUS) ! = NO_OVF) 
register_INHINTl . write (1) ; 
) 

void INT : : execWP_CLINHl ( ) 

{ 

register_INHINTl . write (0) ; 

} 



// INHINT: inhibits interrupts on INHINT, reenables on RELINT 



void INT : : execWP_INH ( ) 
{ 

register_INHINT . write (1) ; 
} 

void INT: :execWP_CLINH() 

{ 

register_INHINT . write (0) ; 

} 



ISD (ISD.h) 

/**************************************************************************** 

* ISD - INSTRUCTION SUBSEQUENCE DECODER subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: ISD.h 
* 

* VERSIONS: 

* 

* DESCRIPTION: 

* Instruction Subsequence Decoder for the Block 1 Apollo Guidance Computer 

* prototype (AGC4) . 

* 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
iifndef ISD_H 
idefine ISD_H 

^include "SEQ.h" 
^include "CTR.h" 

// INSTRUCTION SUBSEQUENCE DECODER 



iifdef NOTDEF 
class ISD 
{ 
public: 

static subseq instructionSubsequenceDecoder () ; 

static char* ISD: : subseqString [ ] ; 

}; 

#endif 
ttendif 



ISD (ISD.cpp) 



/**************************************************************************** 

* ISD - INSTRUCTION SUBSEQUENCE DECODER subsystem 



AUTHOR : 

DATE: 

FILE: 



John Pultorak 

9/22/01 

ISD . cpp 



* NOTES: see header file. 



***************************************************************************** 



*/ 
^include "ISD . h " 



Hfdef NOTDEF 

char* ISD: :subseqSt ring [] 

{ 

"TCO", 

"CCSO", 

"CCS1 ", 

"NDXO", 

"NDX1 ", 

"RSM3", 

"XCHO", 

"CSO", 

"TSO", 

"ADO", 

"MASKO", 

"MPO", 

"MP1 ", 

"MP3", 

"DVO", 

"DV1 ", 

"SUO", 

"RUPT1 ", 

"RUPT3", 

"STD2", 

"PINCO", 

"MINCO", 

"SHINCO", 

"NO_SEQ" 

}; 



subseq ISD : : instructionSubsequenceDecoder () 

{ 

// Combinational logic decodes instruction and the stage count 
// to get the instruction subsequence, 
static subseq decode [16] [4] = { 



TCO, 


RUPT1, 


STD2, 


RUPT3 


}, 


// 00 


CCSO, 


CCS1, 


NO_SEQ, 


NO_SEQ 


}, 


// 01 


NDXO, 


NDX1, 


NO_SEQ, 


RSM3 


}, 


// 02 


XCHO, 


NO_SEQ, 


STD2, 


NO_SEQ 


}, 


// 03 


NO_SEQ, 


NO_SEQ, 


NO_SEQ, 


NO_SEQ 


}, 


// 04 


NO_SEQ, 


NO_SEQ, 


NO_SEQ, 


NO_SEQ 


}, 


// 05 


NO_SEQ, 


NO_SEQ, 


NO_SEQ, 


NO_SEQ 


}, 


// 06 


NO_SEQ, 


NO_SEQ, 


NO_SEQ, 


NO_SEQ 


}, 


// 07 


NO_SEQ, 


NO_SEQ, 


NO_SEQ, 


NO_SEQ 


}, 


// 10 


MPO, 


MP1, 


NO_SEQ, 


MP3 


}, 


// 11 


DVO, 


DV1, 


STD2, 


NO_SEQ 


}, 


// 12 


SUO, 


NO_SEQ, 


STD2, 


NO_SEQ 


}, 


// 13 


CSO, 


NO_SEQ, 


STD2, 


NO_SEQ 


}, 


// 14 


TSO, 


NO_SEQ, 


STD2, 


NO_SEQ 


}, 


// 15 


ADO, 


NO_SEQ, 


STD2, 


NO_SEQ 


}, 


// 16 


MASKO, 


NO_SEQ, 


STD2, 


NO_SEQ 


} 


// n 



switch (CTR: :getSubseq() ) 
case PINCSEL: return PINCO; 



case MINCSEL: return MINCO; 



} 
#endif 



default: return decode [SEQ: :register_SQ.read() ] [SEQ: : register_STB .read () ] ; 

} 



KBD (KBD.h) 

/**************************************************************************** 

* KBD - DSKY KEYBOARD subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: KBD.h 
* 

* VERSIONS: 

* 

* DESCRIPTION: 

* DSKY Keyboard for the Block 1 Apollo Guidance Computer prototype (AGC4) . 

* 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
#ifndef KBD_H 
idefine KBD_H 



enum keylnType { 

// DSKY keyboard input codes: Taken from E-1574, Appendix 1 

// These codes enter the computer through bits 1-5 of INO . 

// The MSB is in bit 5; LSB in bit 1. Key entry generates KEYRUPT. 

KEYIN_NONE =0, // no key depressed** 

KEYIN_0 =020, 

KEYIN_1 =001, 

KEYIN_2 =002, 

KEYIN_3 =003, 

KEYIN_4 =004, 

KEYIN_5 =005, 

KEYIN_6 =006, 

KEYIN_7 =007, 

KEYIN_8 =010, 

KEYIN_9 =011, 

KEYIN_VERB =021, 

KEYIN_ERROR_RESET =022, 

KEYIN_KEY_RELEASE =031, 

KEYIN_PLUS =032, 

KEYIN_MINUS =033, 

KEYIN_ENTER =034, 

KEYIN_CLEAR =036, 

KEYIN_NOUN =037, 

}; 

class KBD 
{ 
public: 

static keylnType kbd; // latches the last key entry from the DSKY 

static void keypress (keylnType c) ; 

); 

#endif 



KBD (KBD.cpp) 

/**************************************************************************** 

* KBD - DSKY KEYBOARD subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: KBD.cpp 

* 

* NOTES: see header file. 

* 

**************************************************************** ************* 

*/ 

^include "KBD . h " 
^include "INT.h" 

// DSKY keyboard 

keylnType KBD : : kbd=KEYIN_NONE ; // latches the last key entry from the DSKY 

void KBD: : keypress (keylnType c) 
{ 

// latch the keycode 
kbd = c; 

// generate KEYRUPT interrupt 
INT : : rupt [KEYRUPT] = 1; 
} 



MBF (MBF.h 

/ 



**************************************************************************** 

* MBF - MEMORY BUFFER REGISTER subsystem 



* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: MBF.h 
* 

* VERSIONS: 

* 

* DESCRIPTION: 



* DESCRIPTION: 

* Memory Buffer Register for the Block 1 Apollo Guidance Computer prototype (AGC4) 

* 

1URCES: 

Mostly based on information from "Logical Description for the Apollo 
Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 
Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

)TES : 
************************************************************************** 



*** 

*/ 

#ifndef MBF_H 
idefine MBF_H 

^include "reg.h" 



class regG : public reg 

{ 

public: 

// all memory bits except bit 15 (parity) 
// bit 15 is not used, so ignore it . 
regG() : reg (16, "%06o") ( } 

}; 



class MBF 

{ 

public: 

static void execWP_GENRST ( ) , 

static void execRP_RG ( ) ; 
static void execRP_WE ( ) ; 

static void execWP_WGn() ; 
static void execWP_WGx() ; 
static void execWP_W20() , 
static void execWP_W21 () , 
static void execWP_W22 ( ) ; 
static void execWP_W23() ; 
static void execWP_SBWG() ; 

// Bit 15 (parity) is kept in a separate register in PAR 
// because it is independently loaded, 
static regG register_G; // memory buffer register (except for bit 15) 

static unsigned conv_RG[]; 

static unsigned conv_WGn[] ; 

static unsigned conv_W20 [] ; 

static unsigned conv_W21 [] , 

static unsigned conv_W22[], 

static unsigned conv_W23 [] ; 

static unsigned conv_SBWG[]; 

static unsigned conv_WE[]; 

}; 

iendif 



MBF (MBF.cpp) 

/**************************************************************************** 

* MBF - MEMORY BUFFER REGISTER subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE : MBF . cpp 
* 

* NOTES: see header file. 

* 

**************************************************************** ************* 

*/ 

^include "MBF.h" 

^include "SEQ.h" 

^include "ADR . h " 

^include "BUS.h" 

^include "PAR . h " 

^include "MEM.h" 

// The actual bit 15 of register_G is not used. 
regG MBF: :register_G; // memory buffer register (except bit 15: parity) 

unsigned MBF: : conv_RG[] = 

{ SG, SG, B14, B13, B12, Bll, BIO, B9, B8, B7, B6, B5, B4, B3, B2, Bl ); 

unsigned MBF ': : conv_SBWG [ ] = 

{ SGM, BX, B14, B13, B12, Bll, BIO, B9, B8, B7, B6, B5, B4 , B3, B2, Bl } ; 

unsigned MBF: : conv_WE[] = 

{ BX, SG, B14, B13, B12, Bll, BIO, B9, B8, B7, B6, B5, B4, B3, B2, Bl } ; 

unsigned MBF: :conv_W20[] = 

{ Bl, BX, SG, B14, B13, B12, Bll, BIO, B9 , B8, B7, B6, B5, B4 , B3, B2 } ; 

unsigned MBF: : conv_W21[] = 

{ SG, BX, SG, B14, B13, B12 , Bll, BIO, B9, B8, B7 , B6, B5, B4 , B3, B2 }; 

unsigned MBF : : conv_W22 [ ] = 

{ B14, BX, B13, B12, Bll, BIO, B9, B8, B7, B6, B5, B4 , B3, B2, Bl, SG } ; 

unsigned MBF: : conv_W23[] = 

{ SG, BX, B13, B12, Bll, BIO, B9, B8, B7 , B6, B5, B4 , B3, B2, Bl, SG }; 



void MBF: : execWP_GENRST ( ) 

{ 

register_G. write (0) ; 

} 



void MBF : : execRP_RG ( ) 
{ 

if (ADR : : GTR_1 7 () ) 

{ 

BUS : : glbl_READ_BUS = register_G. shiftData (0, register_G.read() , MBF : : conv_RG) ; 

) 
} 

void MBF : : execRP^WE ( ) 

{ 

// Write G into memory; shift the sign to bit 15; parity is written from the 

// PAR subsystem 
MEM: :MEM_DATA_BUS = (register_G . shiftData (0 , MBF :: register_G . read () , MBF : : conv_WE) ) ; 
} 



void MBF: : execWP_WGn () 

{ 

register_G .write (BUS: :glbl_WRITE_BUS) ; 

} 

void MBF : : execWP_WGx ( ) 

{ 

// This is only used in PINC, MINC, and SHINC. Does not clear G 
// register; writes (ORs) into G from RWBus and writes into parity 
// from 1-15 generator. The sequence calls CLG in a previous TP to 
// reset G to zero, so the OR operation can be safely eliminated 
// from my implementation of the design. 
register_G .write (BUS: :glbl_WRITE_BUS) ; 

} 

void MBF: :execWP_W20 () 
{ 

register_G .writeShift (BUS: :glbl_WRITE_BUS, MBF: :conv_W20) ; 
) 

void MBF: :execWP_W21 () 

{ 

register_G .writeShift (BUS: :glbl_WRITE_BUS, MBF: :conv_W21) ; 

} 

void MBF: :execWP_W22 () 
{ 

register_G .writeShift (BUS: : glbl_WRITE_BUS , MBF: :conv_W22) ; 
} 

void MBF: :execWP_W23 () 

{ 

register_G. writeShift (BUS: :glbl_WRITE_BUS, MBF: :conv_W23) ; 

} 

void MBF: :execWP_SBWG() 

{ 

register_G .writeShift (MEM: : MEM_DATA_BUS , MBF: : conv_SBWG) ; 

} 



MEM (MEM.h) 
/**************************************************************************** 

* MEM - ERASE ABLE/ 'FIXED MEMORY subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/26/02 

* FILE: MEM.h 
* 

* VERSIONS: 

* 

* DESCRIPTION: 

* Eraseable & Fixed Memory for the Block 1 Apollo Guidance Computer 

* prototype (AGC4) . 

* 

* SOURCES: 
Mostly based on information from "Logical Description for the Apollo 
Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 



* Guidance Computer (AGC4) '■ , Aj.nerr uopxins, namon jij.onso, 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
iifndef MEM_H 
idefine MEM_H 

^include "reg.h" 

#define NUMFBANK 12 // number of 1024 word fixed memory banks 

class regEMEM : public reg 
{ 
public: 

regEMEM() : reg (16 , "%06o") { } 

regEMEMS operator= (const unsigneds r) { write (r) ; return *this; } 

}; 

class regFMEM : public reg 

public: 

regFMEM() : reg(16, "%06o") { } 

regFMEMS operator= (const unsigneds r) { write (r) ; return *this; } 

}; 

class MEM 
{ 
public: 

static void execWP_WE(); 

static void execRP_SBWG ( ) ; 

static regEMEM register_EMEM [ ] ; // erasable memory 
static regFMEM register_FMEM [ ] ; // fixed memory 

static unsigned MEM_DATA_BUS ; // data lines: memory bits 15-1 
static unsigned MEM_PARITY_BUS ; // parity line: memory bit 16 

static unsigned readMemory () ; 

static void writeMemory (unsigned data); 

// The following functions are used in the simulator, 

// but are implemented in the AGC design . 
static unsigned readMemory (unsigned address) ; 
static void writeMemory (unsigned address, unsigned data); 

}; 

iendif 



MEM (MEM.cpp) 

/**************************************************************************** 

* MEM - ERASEABLE/ FIXED MEMORY subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/26/02 

* FILE: MEM.cpp 
* 

* NOTES: see header file. 

* 
**************************************************************** 

*/ 

^include "MEM.h" 
^include "ADR . h " 
^include "stdlib.h" 

regEMEM MEM: : reglster_EMEM[1024] ; // erasable memory 

regFMEM MEM: : register_FMEM[1024* (NUMFBANK+1) ] ; // fixed memory (lowest 1024 words ignored) 

unsigned MEM: :MEM_DATA_BUS = 0; // data lines: memory bits 15-1 

unsigned MEM: :MEM_PARITY_BUS = 0; // parity line: memory bit 16 



void MEM : : execWP_WE ( ) 

{ 

// Write into memory; parity bit in bit 16 
writeMemory( (MEM_PARITY_BUS « 15) / MEM_DATA_BUS ); 
) 

void MEM: :execRP_SBWG() 

{ 

MEM_DATA_BUS = readMemory ( ) & 0077777/ // everything except parity 
MEM_PARITY_BUS = ( readMemory ( ) & 0100000) » 15; // parity bit only 

} 

unsigned MEM: : readMemory () 
{ 

// Return memory value addressed by lower 10 bits of the S register (IK) and the 

// bank decoder (which selects the IK bank) 
unsigned lowAddress = ADR: :register_S.readField(10, 1) ; 

if (ADR: :bankDecoder() == 0) 

return MEM: : register_EMEM [lowAddress] . read () ; 



} 



unsigned highAddress = ADR : : bankDecoder ( ) « 10; 

return MEM: : register_FMEM [highAddress I lowAddress] . read () ; 



void MEM: :writeMemory (unsigned data) 

{ 

// Write into erasable memory addressed by lower 10 bits of the S register (IK) 
// and the bank decoder (which selects the IK bank) 
unsigned lowAddress = ADR: :register_S.readField(10, 1) ; 
if (ADR: : bankDecoder () == 0) 
{ 

MEM: :register_EMEM [lowAddress] . write (data) ; 

MEM: :register_EMEM [lowAddress] .elk () ; // not a synchronous FF, so execute 
immediately ************* 

; 
; 

unsigned MEM: -.readMemory (unsigned address) 
{ 

// Address is 14 bits. This function is used by the simulator for examining 
// memory; it is not part of the AGC design, 
unsigned lowAddress = address & 01777; 
unsigned bank = (address & 036000) » 10; 

if (bank == 0) 

return MEM: : register__EMEM [lowAddress] . read () ; 



unsigned highAddress = bank « 10; 

return MEM: :register_FMEM[highAddress / lowAddress] . read() ; 
} 

void MEM: : writeMemory (unsigned address, unsigned data) 

{ 

// Address is 14 bits. This function is used by the simulator for depositing into 
// memory; it is not part of the AGC design. This function is also used to 
// initialize fixed memory. 

// This function could also write the parity into memory 

//************************************************************ 

unsigned lowAddress = address & 01777; 
unsigned bank = (address & 036000) » 10; 

if (bank == 0) 

{ 

if (lowAddress > 1024) 

{ 

cout « "Error: Eraseable address=" « lowAddress « endl; 

exit (0) ; 
} 

MEM: :register_EMEM [lowAddress] . write (data) ; 
MEM: :register_EMEM [lowAddress] .elk () ; // execute immediately 

} 
else 

{ 

unsigned highAddress = bank « 10; 

if ( (highAddress I lowAddress) >= 1024* (NUMFBANK+1) ) 

{ 

cout « "Error: Fixed address=" « (highAddress / lowAddress) « endl; 
exit(O); 
} 

MEM: :register_FMEM [highAddress / lowAddress] .write (data) ; 

MEM: :register_FMEM [highAddress / lowAddress] . elk () ; // execute immediately 



MON (MON.h) 

/**************************************************************************** 

* MON - AGC MONITOR subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: MON.h 
* 

* VERSIONS: 

* 

* DESCRIPTION: 

* AGC Monitor for the Block 1 Apollo Guidance Computer prototype (AGC4) . 

* 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
#ifndef MON_H 
#define MON_H 

class MON 
{ 
public: 

static void displayAGC() ; 

static char* MON : : clkTypestring [ ] ; 

static unsigned PURST; // power up reset 

static unsigned RUN; // run/halt switch 

static unsigned STEP; // single step switch 

static unsigned INST; // instruction/sequence step select switch 

static unsigned FCLK; // clock mode (0=single (manual) clock, l=continuous clock) 

static unsigned SA; // "standby allowed" SW; 

// 0=NO (full power), 1=YES (low power) 



}; 

ttendif 



static unsigned SCL_ENAB; // "scaler enabled" SW; 0=NO (scaler halted), 1=YES 

(scaler running) 



MON (MON.cpp) 

/**************************************************************************** 

* MON - AGC MONITOR subsystem 



AUTHOR : 

DATE: 

FILE: 



John Pultorak 
9/22/01 
MON. cpp 



* NOTES: see header file. 



***************************************************************************** 



*/ 
^include "MON.h" 



^include 


"TPG. 


h 


^include 


"MON. 


h 


^include 


"SCL . 


h 


^include 


"SEQ. 


h 


^include 


"INP . 


h 


^include 


"OUT. 


h 


^include 


"BUS. 


h 


^include 


"DSP . 


h 


^include 


"ADR. 


h 


^include 


"PAR. 


h 


^include 


"MBF. 


h 


^include 


"MEM. 


h 


^include 


"CTR. 


h 


^include 


"INT. 


h 


^include 


"KBD. 


h 


^include 


"CRG. 


h 


^include 


"ALU. 


h 


^include 


"CPM. 


h 


^include 


"ISD. 


h 


^include 


"CLK. 


h 



unsigned MON: :PURST=1; 
unsigned MON: :RUN=0; 
unsigned MON::STEP=0; 
unsigned MON: : INST=1; 
unsigned MON: :FCLK=0; 

unsigned MON::SA=0; 

unsigned MON : : SCL_ENAB=1 ; 
running) 



// power up reset; initially high at startup 

// run/halt switch 

// single step switch 

// instruction/sequence step select switch 

// clock mode 

// "standby allowed" SW; 0=NO (full power), 1=YES (low power) 

// "scaler enabled" SW; 0=NO (scaler halted), 1=YES (scaler 



void MON: -.displayAGC () 

{ 

char buf[100]; 

cout « "AGC4 SIMULATOR 1.16 " « endl ; 

sprint f (buf, " TP: %-5s F17:%ld F13 : %ld F10:%ld SCL:%06o", 
TPG: : tpTypestring [TPG : : register_SG . read () ] , 

SCL: : register_F17 . read() , SCL: :register_F13 .read() , SCL: :register_F10 . read() , 
SCL: : register_SCL . read ( ) ) ; 
cout « buf « endl; 

sprintf(buf, " STA:%01o STB:%01o BRl:%01o BR2:%01o SNI:%01o CI : %01o 

LOOPCTR:%01o", 

SEQ: : register_STA. read( ) , SEQ: :register_STB.read() , 

SEQ: : register_BRl .read() , SEQ: : register_BR2 . read ( ) , 

SEQ: : register_SNI . read() , ALU: : register_CI . read () , SEQ: : register_LOOPCTR. read() ) ; 
cout « buf « endl; 

sprintf(buf, " RPCELL:%05o INHl:%01o INH:%01o UpCELL:%03o DnCELL:%03o SQ:%02o %-6s 
%-6s", 

INT: : register_RPCELL . read ( ) , INT: : register_INHINTl . read( ) , 
INT: : register_INHINT . read () , 

CTR : : register_UpCELL . read () , CTR : : register_DnCELL . read () , 

SEQ: : register_SQ . read () , SEQ: : instruct ionSt ring [SEQ: : register_SQ . read () ] , 
CPM: : subseqSt ring [SEQ : : glbl_subseq] ) ; 
cout « buf « endl; 

sprintffbuf, " CP:%s", SEQ: -.getControlPulses () ) ; 

cout « buf « endl; 



// For the G register, bit 15 comes from register G15; the other bits (16, 14—1) 
come 

// from register G. 
sprintf(buf, " S: %04o G:%06o P:%06o (r)RUN :%ld (p)PURST:%ld 

(F2, F4) FCLK: %ld", 

ADR : : register_S . read () , 

(MBF: :register_G.read() S 0137777) / (PAR: :register_G15.read() « 14) , 

PAR : : register_P . read () , 

MON: :RUN, MON: :PURST, MON: :FCLK) ; 
cout « buf « endl; 

sprintf(buf, " RBU:%06o WBU:%06o P2:%01o (s)STEP : %ld" , 

BUS : : glbl_READ_BUS & 0177777, BUS: :glbl_WR ITE_BUS & 0277777, 
PAR : : register_P2 . read () , MON: : STEP) ; 
cout « buf « endl; 

char parityAlm = ' ' ; 

if (PAR: :register_PALM.read() ) parityAlm = '*'; 

sprint f (buf, " B:%06o CADR:%06o (n)INST:%ld PALM: [%c] ", 

ALU: : register_B . read () , ADR : : getEffectiveAddress () , MON: : INST, parityAlm) ; 
cout « buf « endl; 

sprintf(buf, " X:%06o Y:%06o U:%06o (a)SA :%ld", 

ALU :: register_X . read () , ALU: :register_Y.read() , ALU: :register_U. read () , MON: :SA) , 
cout « buf « endl; 

cout « endl; 

sprintf(buf, "00 A:%06o 15 BANK:%02o 36 TIMEl:%06o 53 OPT ¥:%06o", 

CRG: : register_A. read() , ADR: :register_BNK.read() , MEM: -.readMemory (036) , 
MEM: -.readMemory (053) ) ; 

cout « buf « endl; 

sprintf(buf, "01 Q:%06o 16 RELINT:%6s 37 TIME3:%06o 54 TRKR X:%06o", 

CRG: : register_Q . read () , " ", MEM: : readMemory (037) , MEM: : readMemory (054) ) ; 
cout « buf « endl; 
sprintf(buf, "02 Z:%06o 17 INHINT:%6s 40 TIME4:%06o 55 TRKR Y:%06o", 

CRG :: register_Z . read () , "", MEM: : readMemory (040) , MEM: : readMemory (055) ) ; 
cout « buf « endl; 
sprintf(buf, "03 LP:%06o 20 CYR:%06o 41 UPLINK:%06o 56 TRKR Z:%06o", 

CRG: : register_LP . read () , MEM: : readMemory (020) , MEM: : readMemory (041) , 
MEM: : readMemory (056) ) ; 

cout « buf « endl; 

sprintf(buf, "04 IN0:%06o 21 SR:%06o 42 OUTCR1: %06o", 

INP: : register_IN0 . read() , MEM: .-readMemory (021) , MEM: : readMemory (042) ) ; 
cout « buf « endl; 

char progAlm = ' ' ; 

if (OUT: :register_OUTl.read() & 0400) progAlm = '*'; 

char compFail = ' '; // also called 'check fail' and ' oper err' 
if (OUT: :register_OUTl.read() & 0100) compFail = '*•; 

char keyRels = ' '; 

if(OUT::register_OUTl.read() S 020) keyRels = '*'; 

char upTl = ' ' ; 

if(OUT::register_OUTl.read() & 004) upTl = '*'; 

char comp = ' '; // also called comp acty 

if (OUT: :register_OUTl.read() & 001) comp = '*'; 

sprintf(buf, "05 INl:%06o 22 CYL:%06o 43 OUTCR2:%06o CF: [%c%c] :KR [%c]:PA", 

INP: : register_INl . read() , MEM: .readMemory (022) , MEM: .-readMemory (043) , 
compFail, keyRels, progAlm); 

cout « buf « endl; 

sprintf(buf, "06 IN2:%06o 23 SL:%06o 44 PIPA X:%06o", 

INP: : register_IN2 . read() , MEM: : readMemory (023) , MEM: : readMemory (044) ) ; 
cout « buf « endl; 

sprintf(buf, "07 IN3:%06o 24 ZRUPT:%06o 45 PIPA Y:%06o A: [%c%c] M: [%c%c] ", 

INP: : register_IN3 . read() , MEM: .readMemory (024) , MEM: : readMemory (045) , 



upTl, comp, DSP::MD1, DSP : :MD2) ; 

cout « buf « endl; 

char fc = ' '; if (DSP :: flash) fc = '*'; 

sprintf(buf, "10 OUTO : 25 BRUPT:%06o 46 PIPA Z:%06o V: [%c%c] N: [%c%c] %c' 

MEM: : readMemory (025) , MEM: : readMemory (046) , 
DSP::VD1, DSP::VD2, DSP::ND1, DSP: :ND2, fc); 

cout « buf « endl; 

sprintf(buf, "11 OUTl:%06o 26 ARUPT:%06o 41 CDUX:%06o Rl:[ %c%c%c%c%c%c ] " , 

OUT: : register_OUTl . read () , MEM: : readMemory (026) , MEM: : readMemory (04 7) , 
DSP::R1S, DSP: :R1D1, DSP::R1D2, DSP: :R1D3, DSP: :R1D4, DSP: :R1D5) ; 

cout « buf « endl; 

sprintf(buf, "12 OUT2:%06o 27 QRUPT:%06o 50 CDU Y:%06o R2:[ %c%c%c%c%c%c ]", 

OUT: :register_0UT2.read() , MEM: : readMemory (027) , MEM: : readMemory (050) , 
DSP::R2S, DSP: :R2D1, DSP::R2D2, DSP: :R2D3, DSP: :R2D4, DSP: :R2D5) ; 

cout « buf « endl; 

sprintf(buf, "13 OUT3:%06o 34 OVCTR:%06o 51 CDU Z:%06o R3: [ %c%c%c%c%c%c ]", 

OUT: :register_0UT3.read() , MEM: : readMemory (034) , MEM: : readMemory (051) , 
DSP::R3S r DSP: :R3D1, DSP::R3D2, DSP: :R3D3, DSP: :R3D4, DSP: :R3D5) ; 

cout « buf « endl; 

sprintf(buf, "14 OUT4:%06o 35 TIME2:%06o 52 OPT X:%06o", 

OUT: : register_0UT4 . read () , MEM: : readMemory (035) , MEM: : readMemory (052) ) ; 

cout « buf « endl; 



OUT (OUT.h) 

/**************************************************************************** 

* OUT - OUTPUT REGISTER subsystem 
* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: OUT.h 
* 

* VERSIONS: 

* 

* DESCRIPTION: 

* Output Registers for the Block 1 Apollo Guidance Computer prototype (AGC4) 

* 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 



* NOTES : 

* 

***************************************************************************** 

*/ 
ttifndef OUT_H 
idefine OUT_H 

^include "reg.h" 

class regOutl : public reg 
{ 
public: regOutl () : reg(16, "%06o") { ) 



class reg0ut2 : public reg 
{ 
public: regOut2() : reg (16, "%06o") { } 



}; 



class reg0ut3 : public reg 
{ 
public: regOut3() : reg (16, "%06o") ( } 

}; 

class reg0ut4 : public reg 
{ 
public: regOut4() : reg(16, "%06o") { ) 

}; 

class OUT 
{ 
public: 

static void execWP_GENRST ( ) ; 

static void execWP_WA10 () ; 

static void execRP_RAll () ; 

static void execWP_WAll () ; 

static void execRP_RA12 () ; 

static void execWP_WA12 () ; 

static void execRP_RA13 () ; 

static void execWP_WA13 () ; 

static void execRP_RA14 () ; 

static void execWP_WA14 () ; 



}; 

iendif 



static regOutl register_OUTl; // output register 1 

static regOut2 register_0UT2; // output register 2 

static regOut3 register_0UT3; // output register 3 

static regOut4 register_0UT4; // output register 4 



OUT (OUT.cpp) 

/**************************************************************************** 

* OUT - OUTPUT REGISTER subsystem 
* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: OUT.cpp 

* 

* NOTES: see header file. 

* 
**************************************************************** 

*/ 

^include "OUT.h" 

^include "SEQ.h" 

^include "BUS.h" 

#include "DSP.h" 

^include "ADR . h " 

/(include "PAR . h " 

if include <stdlib.h> 

regOutl OUT: : register_OUTl ; // output register 1 

reg0ut2 OUT: : register_0UT2 ; // output register 2 

reg0ut3 OUT: : register_0UT3 ; // output register 3 

reg0ut4 OUT: : register_0UT4 ; // output register 4 

// Writing to OUTO loads the selected DSKY display register . 



void OUT : : execWP_GENRST ( ) 
{ 

DSP : : clearOut () ; 

register_OUTl . write (0) ; 
register_0UT2 . write (0) ; 
} 

void OUT: :execWP_WA10 () 

{ 

DSP: : decodeRelayWord (BUS : :glbl_WRITE_BUS) ; 

} 



void OUT: :execRP_RAll () 
{ 

BUS : : glbl_READ_BUS = register_OUTl . read() ; 

} 



void OUT: :execWP_WAll () 

{ 

register_OUTl . write (BUS: : glbl_WRITE_BUS ) , 

} 



void OUT: :execRP_RA12() 

{ 

BUS : : glbl_READ_BUS = register_0UT2 . read() ; 

} 



void OUT: :execWP_WA12 () 
{ 

register_0UT2 . write (BUS: : glbl_WRITE_BUS ) , 

} 



void OUT: :execRP_RA13() 

{ 

BUS : : glbl_READ_BUS = register_0UT3 . read() ; 

} 



void OUT: :execWP_WA13 () 
{ 

register_0UT3 .write (BUS: : glbl_WRITE_BUS ) , 

} 



void OUT: :execRP_RA14 () 

{ 

BUS : : glbl_READ_BUS = register_0UT4 . read() ; 

} 



void OUT: :execWP_WA14 () 
{ 

register_0UT4 . write (BUS : : glbl_WRITE_BUS ) ; 
) 



PAR (PAR.h) 

/**************************************************************************** 

* PAR - PARjrr GENERATION AND TEST subsystem 
* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: PAR.h 
* 

* VERSIONS: 

* 

* DESCRIPTION: 

* Parity Generation and Test for the Block 1 Apollo Guidance Computer 

* prototype (AGC4) . 

* 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
Hfndef PAR_H 
idefine PAR_H 

^include "reg.h" 

class regG15 : public reg 

public: 

// memory buffer register bit 15 (parity) only 
regG15() : reg(l, "%01o") { } 

}; 

class regP : public reg 
{ 
public: regP() : reg(16, "%06o") { } 

}; 

class regP2 : public reg 
{ 
public: 

regP2() : reg(l, "%01o") { } 

}; 

class regPALM : public reg 
{ 
public: 

// parity alarm FF (set on TP) 
regPALM() : reg(l, "%01o") { } 

}; 

class PAR 

{ 

public: 

static void execRP_WE () ; 

static void execWPWP () ; 

static void execWP_WPx() ; 

static void execWP_WP2 ( ) ; 

static void execWP_RP2 ( ) ; 

static void execWP_GP () ; 

static void execWP_SBWG ( ) ; 

static void execWP_WGx() ; 

static void execWP_CLG ( ) ; 

static void execWP_GENRST ( ) ; 



static void execWP__TP () ; 
static void CLR_PALM() ; // asynchronous clear for PARITY ALARM 



// memory buffer register bit 15; the rest of the 
// memory buffer register is defined in MBF 
static regG15 register_G15; 



static regP2 register_P2 ; 
static regP register_P; 

static regPAIM register_PALM; 



static unsigned genl_15Parity (unsigned r) ; 
static unsigned genP_15Parity (unsigned r) ; 

static unsigned conv_WP[]; 



}; 

#endif 



PAR (PAR.cpp) 

/**************************************************************************** 

* PAR - PARITY GENERATION AND TEST subsystem 
* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: PAR.cpp 

* 

* NOTES: see header file. 

* 
**************************************************************** 

*/ 

^include "PAR . h " 

^include "SEQ.h" 

^include "BUS.h" 

#±nclude "MBF.h" 

^include "ADR . h " 

/(include "MEM.h" 

regP PAR: : register_P ; 

regP2 PAR: :register_P2; 

regG15 PAR: :register_G15; // memory buffer register bit 15 

regPALM PAR: : register_PALM; // PARITY ALARM FF 

unsigned PAR: : conv_WP [] = 

{ 

BX, SG, B14, B13, B12, Bll, BIO, B9, B8, Bl , B6, B5, B4, B3, B2, Bl 

}; 



void PAR : : execRP_WE ( ) 
{ 

// Write parity into memory. 
MEM: :MEM_PARITY_BUS = PAR: : register_G15 . read() ; 

} 



// IMPLEMENTATION NOTE: It has been empirically determined that the following 
// control signals are mutually exclusive (there is never more than one of these 
// generated at any time) : 
// GP, WGX, RP2, SBWG, CLG 

// NOTE: WP clears register_P before writing into it. Strictly speaking, WPx isn't 
// supposed to clear the register (should OR into the register) , but in the counter 
// sequences where WPx is used, register_P is always cleared in the previous TP by 
// asserting WP with default zeroes on the write bus. 

void PAR : : execWP_WP ( ) 
{ 

// set all bits except parity bit 
register_P .writeShift (BUS: :glbl_WRITE_BUS, PAR: :conv__WP) ; 
// now set parity bit; in the actual AGC, this is 
// a single operation. 
if(SEQ: :isAsserted(RG)) 

register_P .writeField(16, 16, register_G15 ,read() ) ; 
else 

register_P .writeField(16, 16, 0) ; // clear parity bit 
} 

void PAR : : execWP_WPx ( ) 
{ 

// set all bits except parity bit 
register_P .writeShift (BUS: :glbl_WRITE_BUS, PAR: :conv_WP) ; 
// now set parity bit; in the actual AGC, this is 
// a single operation. 
if(SEQ: :isAsserted(RG)) 

register_P .writeField(16, 16, register_G15 ,read() ) ; 
else 



register_P .writeField (16, 16, 0) ; // clear parity bit 



void PAR: : execWP_WP2 () 

{ 

register_P2 . write (genl_15Parity (register_P . read () ) ) ; 

} 

void PAR: :execWP_RP2 () 
{ 

register_G15 . write (register_P2 . read () ) ; 
) 

void PAR : : execWP_GP ( ) 

{ 

register_G15 . write (genl_15Parity (register_P .read () ) ) ; 

) 

void PAR: : execWP_SBWG () 
{ 

register_G15. write (MEM: :MEM_PARITY_BUS) ; // load memory bit 16 (parity) into G15 
} 

void PAR : : execWP_WGx ( ) 

{ 

// This is only used in PINC, MINC, and SHINC. Does not clear G 
// register; writes (ORs) into G from RWBus and writes into parity 
// from 1-15 generator. All done in one operation, although I show 
// it in two steps here. The sequence calls CLG in a previous TP . 
register_G15 . write (PAR: : genl_15Parity (register_P . read ())) } 

} 

void PAR: :execWP_CLG() 
{ 

register_G15 . write (0) ; 
) 

void PAR: :execWP_GENRST() 

{ 

register_PALM . write (0) ; 

} 

void PAR : : execWP_TP ( ) 
{ 

i f (ADR : : GTR_2 7 () && genP_ 1 5Pari ty (regi st er_P .read() ) ) 
register_PALM . write (genP_15Parity (register_P . read() ) ) ; 
} 

void PAR : : CLR_PALM ( ) 

{ 

// asynchronous clear for PARITY ALARM (from MON) 
register_PALM. clear () ; 
} 

unsigned PAR: :genl_15Parity (unsigned r) 
{ 

//check the lower 15 bits of 'r' and return the odd parity; 
//bit 16 is ignored, 
unsigned evenParity = 

(ls(r»0)) A (ls(r»l)) * (l&(r»2)) * (ls(r»3)) * 
(l&(r»4)) A (l&(r»5)) " (l&(r»6)) * (ls(r»7)) * 
(ls(r»8)) * (ls(r»9)) * (l£(r»10)) * (ls(r»ll)) A 
(l&(r»12)) * (l&(r»13)) " (1& (r»14) ) ; 
return ~evenParity & 1; // odd parity 
} 

unsigned PAR: :genP_15Parity (unsigned r) 
{ 

//check all 16 bits of 'r' and return the odd parity 
unsigned evenParity = 

(l&(r»0)) * (l&(r»l)) " (l&(r»2)) * (ls(r»3)) * 
(ls(r»4)) * (ls(r»5)) * (l&(r»6)) * (Is (r»7)) * 
(l&(r»8)) * (ls(r»9)) " (1& (r»10) ) * (ls(r»ll)) A 



(l&(r»12)) A (ls(r»13)) " (1& (r»14) ) * (ls(r»15) ) , 
return ~evenParity & 1; // odd parity 



Registers (reg.h) 

#ifndef reg_H 
#define reg_H 

#in cl ude <iost ream . h> 
^include <string.h> 
^include <stdio.h> 

class reg 

{ 

public: 

virtual unsigned read() { return mask & slaveVal; } 

virtual void write (unsigned v) { load = true; masterVal = mask & v; } 

// asynchronous clear 

void clear () { slaveVal = 0; } 

// load is set when a register is written into. 

void clk() { if (load) slaveVal = masterVal; load = false; ) 

unsigned readField (unsigned msb, unsigned lsb) ; // bitfield numbered n — 1 

void writeField (unsigned msb, unsigned lsb, unsigned v) ; // bitfield numbered n - 1 

// Write a 16-bit word (in) into the register. Transpose the bits according to 

// the specification (ib) . 

void writeShift (unsigned in, unsigned* ib) ; 

// Return a shifted 16— bit word. Transpose the 'in' bits according to 
// the specification 'ib'. 'Or' the result to out and return the value, 
unsigned shiftData (unsigned out, unsigned in, unsigned* ib) ; 

unsigned outmask () { return mask; } 

protected : 

reg (unsigned s, char* fs) 

: size(s), mask(O), masterVal (0) , slaveVal (0) , fmtString (fs) , load(false) 
{ mask = buildMask (size) ; ) 

static unsigned buildMask (unsigned s) ; 

friend ostreamS operator « (ostreamS os, const regS r) 

{ char buf[32]; sprintffbuf, r. fmtString, r .slaveVal) ; os « buf; return os; } 

private: 

unsigned size; // bits 

unsigned masterVal; 

unsigned slaveVal; 

unsigned mask; 

char* fmtString; 

bool load; 

reg () ; // prevent instantiation of default constructor 

); 

#endif 



Registers (reg.cpp) 

^include "reg.h" 
^include <math.h> 
^include "BUS.h" 

unsigned reg :: buildMask (unsigned s) 

{ 

unsigned msk = 0; 

for (unsigned i=0; i<s; i++) 

{ 

msk = (msk « 1) / 1; 

} 

return msk; 
} 

unsigned reg: : readField (unsigned msb, unsigned lsb) 

{ 

return (slaveVal » (lsb-1) ) S buildMask ( (msb-lsb)+l) ; 

} 

void reg: .writeField (unsigned msb, unsigned lsb, unsigned v) 
{ 

load = true; 

unsigned fmask = buildMask ( (msb-lsb) +1) « (lsb-1); 

v = (v « (lsb-1)) & fmask; 

masterVal = (masterVal S (~ fmask) ) / v; 
} 

void reg: :writeShi ft (unsigned in, unsigned* ib) 
{ 

load = true; 

unsigned out = masterVal ; 

// iterate through each bit of the output word, copying in bits from the input 
// word and transposing bit position according to the specification (ib) 

for (unsigned i=0; i<16; i++) 

{ 

if (ib[i] == BX) continue; // BX is 'don't care', so leave it alone 

// zero the output bit at 'ob', where ob specifies a bit 

// position (numbered 16-1, where 1 is lsb) 
unsigned ob = 16-i; 

unsigned obmask = 1 « (ob - 1) ; // create mask for output bit 
out &= ~obmask; 

if (ib[i] == DO) continue; // DO is 'force the bit to zero' 

// copy input bit ib[i] to output bit 'ob', where ib and ob 
// specify bit positions (numbered 16-1, where 1 is lsb) 

unsigned ibmask = 1 « (ib[i] - 1) ; // create mask for input bit 

unsigned inbit = in & ibmask; 

int shift = ib[i]—ob; 
if(shift<0) 

inbit = inbit « abs (shift) ; 
else if (shift > 0) 

inbit = inbit » shift; 
out 1= inbit; 
} 

masterVal = out; 
} 

unsigned reg: : shiftData (unsigned out, unsigned in, unsigned* ib) 
{ 

// iterate through each bit of the output word, copying in bits from the input 
// word and transposing bit position according to the specification (ib) 
for (unsigned i=0; i<16; i++) 
{ 

if (ib[i] == BX) continue; // BX is 'don't care', so leave it alone 

// zero the output bit at 'ob', where ob specifies a bit 
// position (numbered 16-1, where 1 is lsb) 
unsigned ob = 16-i; 



unsigned obmask = 1 « (ob — 1) ; // create mask for output bit 
out &= ~obmask; 

if (ib[i] == DO) continue; // DO is 'force the bit to zero' 

// copy input bit ib[i] to output bit 'ob', where ib and ob 
// specify bit positions (numbered 16-1, where 1 is lsb) 

unsigned ibmask = 1 « (ib[i] - 1) ; // create mask for input bit 

unsigned inbit = in & ibmask; 

int shift = ib[i]—ob; 
if(shift<0) 

inbit = inbit « abs (shift) ; 
else if (shift > 0) 

inbit = inbit » shift; 
out 1= inbit; 



} 

return out; 



SCL (SCL.h) 

/**************************************************************************** 

* SCL - SCALER subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: SCL.h 
* 

* VERSIONS: 

* 

* DESCRIPTION: 

* Scaler for the Block 1 Apollo Guidance Computer prototype (AGC4) . 

* 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
#ifndef SCL_H 
#define SCL_H 

^include "reg.h" 

class regFll : public reg 
{ 
public: 

regFll () : reg (2, "%01o") { } 

}; 

class regF13 : public reg 
{ 
public: 

regF13() : reg (2, "%01o") { } 

}; 

class regFlO : public reg 
{ 
public: 

regF10() : reg(2, "%01o") { } 

}; 

class regSCL : public reg 
{ 
public: 

regSCL() : reg (17, "%06o") { } 

}; 

class SCL 

{ 

public: 

static void doexecWP_SCL () ; 

static void doexecWP_F17 () ; 

static void doexecWP_F13 () ; 

static void doexecWP_F10 () ; 

static regSCL register_SCL; 

// Normally outputs '0'; outputs '1 ' for one 

// clock pulse at the indicated frequency, 
static unsigned F17x(); // 0.78125 Hz scaler output 

static unsigned F13x(); // 12.5 Hz scaler output 

static unsigned F10x(); // 100 Hz scaler output 

static regF17 register_F17; 
static regF13 register_F13; 
static regFlO register_F10; 

}; 



iendif 



SCL (SCL.cpp) 

/**************************************************************************** 

* SCL - SCALER subsystem 

* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: SCL.cpp 

* 

* NOTES: see header file. 

* 

**************************************************************** ************* 

*/ 

^include "SCL.h" 
^include "CTR . h " 
^include "MON.h" 

regSCL SCL: :register_SCL; 
regFl 7 SCL : : regist er_Fl 7; 
regF13 SCL: :register_F13; 
regFl SCL : : register_Fl 0; 

enum oneShotType { // **inferred; not defined in orignal R393 AGC4 spec. 
WAIT_FOR_ TRIGGER=0, 

OUTPUT_PULSE=l, // LSB (bit 1) is the output bit for the one-shot 

WAIT__F0R_RESET=2 

}; 



void SCL : : doexecWP_Fl 7 () 

{ 

int bit = SCL: : register_SCL . readField (17,17 ') ; 

switch (register__F17 . read () ) 

{ 

case WAIT_FOR_TRIGGER: if (bit==l) register_F17 .write (OUTPUT_PULSE) ; break; 

case OUTPUT_PULSE : register_F17 .write (WAIT_FOR_RESET) ; break; 

case WAIT_FOR_RESET : if(bit==0) register_F17 .write (WAIT_FOR_TRIGGER) ; break; 

default : ; 

} 
} 

void SCL: :doexecWP_F13() 
{ 

int bit = SCL: : register_SCL . readField (13,13) ; 

switch (register_F13 . read () ) 

{ 

case WAIT_FOR_TRIGGER: if (bit==l) register_F13 .write (OUTPUT_PULSE) ; break; 

case OUTPUT_PULSE : register_F13 .write (WAIT_FOR_RESET) ; break; 

case WAIT_FOR_RESET : if(bit==0) register_F13 .write (WAIT_FOR_TRIGGER) ; break; 

default : ; 

} 
} 

void SCL: :doexecWP_F10() 
{ 

int bit = SCL: :register_SCL. readField (10, 10) ; 

switch (register_Fl . read () ) 

{ 

case WAIT_FOR_TRIGGER: if (bit==l) register_F10 .write (OUTPUT_PULSE) ; break; 

case OUTPUT_PULSE : register_F10 . write (WAIT_FOR_RESET) ; 

CTR: :pcUp[ TIME 1] = 1; 

CTR: :pcUp[TIME3] = 1; 

CTR: :pcUp[TIME4] = 1; 

break; 
case WAIT_FOR_RESET : if (bit==0) register_F10 .write (WAIT_FOR_TRIGGER) ; break; 
default : ; 
} 
} 

unsigned SCL: :F17x() 
{ 

return regist er_Fl 7 . readField (1, 1) ; 



; 

unsigned SCL : : Fl 3x () 

{ 

return register_F13 . readFieldfl, 1) ; 

} 

unsigned SCL: :F10x() 
{ 

return register_F10 . readFieldfl, 1) ; 
} 

void SCL: : doexecWP_SCL ( ) 

{ 

if(MON::SCL_ENAB) // if the scaler is enabled 

{ 

//write ( (read () + 1) % outmask()); 
register_SCL. write ( (register_SCL. read () + 1)); 
} 
} 



SEQ (SEQ.h) 

/**************************************************************************** 

* SEQ - SEQUENCE GENERATOR subsystem 
* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: SEQ.h 
* 

* VERSIONS: 

* 

* DESCRIPTION: 

* Sequence Generator for the Block 1 Apollo Guidance Computer prototype (AGC4) . 

* 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
#ifndef SEQ_H 
idefine SEQ_H 

iinclude "reg.h" 

idefine MAXPULSES 15 

idefine MAX_IPULSES 5 // no more than 5 instruction-generated pulses active at any time 

enum cpType { // **inferred; not defined in orignal R393 AGC4 spec. 
NO_PULSE=0 , 



// OUTPUTS FROM SUBSYSTEM A 


CI 


=1, 


// Carry in 


CLG 


=2, 


// Clear G 


CLCTR 


=3, 


// Clear loop counter 


CTR 


=4, 


// Loop counter 


GP 


=5, 


// Generate Parity 


KRPT 


=5, 


// Knock down Rupt priority 


NISQ 


= 7, 


// New instruction to the SQ register 


RA 


=8, 


// Read A 


RB 


=9, 


// Read B 


RBI 4 


=10, 


// Read bit 14 


RC 


=11, 


// Read C 


RG 


=12, 


// Read G 


RLP 


=13, 


// Read LP 


RP2 


=14, 


// Read parity 2 


RQ 


=15, 


// Read Q 


RRPA 


=16, 


// Read RUPT address 


RSB 


=17, 


// Read sign bit 


RSCT 


=18, 


// Read selected counter address 


RU 


=19, 


// Read sum 


RZ 


=20, 


// Read Z 


Rl 


=21, 


// Read 1 


R1C 


=22, 


// Read 1 complimented 


R2 


=23, 


// Read 2 


R22 


=24, 


// Read 22 


R24 


=25, 


// Read 24 


ST1 


=26, 


// Stage 1 


ST2 


=27, 


// Stage 2 


TMZ 


=28, 


// Test for minus zero 


TOV 


=29, 


// Test for overflow 


TP 


=30, 


// Test parity 


TRSM 


=31, 


// Test for resume 


TSGN 


=32, 


// Test sign 


TSGN2 


=33, 


// Test sign 2 


WA 


=34, 


// Write A 


WALP 


=35, 


// Write A and LP 


WB 


=36, 


// Write B 


WGx 


=37, 


// Write G (do not reset) 



WLP 

wove 

WOVI 

WOVR 

WP 

WPx 

WP2 

WQ 

WS 

WX 

WY 

WYx 

wz 



=38, 
=39, 
=40, 
-41, 
=42, 
=43, 
=44, 
=45, 
=46, 
=41, 
=48, 
=49, 
=50, 



// Write LP 

// Write overflow counter 
// Write overflow RUPT inhibit 
// Write overflow 
P 

(do not reset) 



// Write 
// Write 
// Write P2 
// Write Q 
// Write 
// Write 
// Write 
// Write 
// Write 



(do not reset) 



// OUTPUTS FROM SUBSYSTEM A; USED AS INPUTS TO SUBSYSTEM B ONLY; 

// NOT USED OUTSIDE CPM 

RSC =51, // Read special and central (output to B only, not outside CPM) 

WSC =52, // Write special and central (output to B only, not outside CPM) 

WG =53, // Write G (output to B only, not outside CPM) 

// OUTPUTS FROM SUBSYSTEM A; USED AS INPUTS TO SUBSYSTEM C ONLY; 

// NOT USED OUTSIDE CPM 

SDV1 =54, // Subsequence DV1 is currently active 

SMP1 =55, // Subsequence MP1 is currently active 

SRSM3 =56, // Subsequence RSM3 is currently active 



// EXTERNAL 
// 



RAO 

RA1 

RA2 

RA3 

RA4 

RA5 

RA6 

RA7 

RA10 

RAH 

RA12 

RA13 

RA14 

RBK 

WAO 

WA1 

WA2 

WA3 

WA10 

WA11 

WA12 

WA13 

WA14 

WBK 

WGn 

W20 

W21 

W22 

W23 



=57, 
=58, 
=59, 
=60, 
=61, 
=62, 
=63, 
=64, 
=65, 
=66, 
=67, 
=68, 
=69, 
= 70, 
= 71, 
= 72, 
= 73, 
= 74, 
= 75, 
= 76, 
= 77, 
= 78, 
= 79, 
=80, 
=81, 
=82, 
=83, 
=84, 
=85, 



OUTPUTS FROM SUBSYSTEM B 

// Read register at 

// Read register at 

// Read register at 

// Read register at 

// Read register at 

// Read register at 

// Read register at 

// Read register at 

// Read register at 

// Read register at 

// Read register at 

// Read register at 

// Read register at 

// Read BNK 

// Write register at 

// Write register at 

// Write register at 

// Write register at 

// Write register at 

// Write register at 

// Write register at 

// Write register at 

// Write register at 

// Write BNK 

// Write G (normal gates) ** 

// Write into CYR 

// Write into SR 

// Write into CYL 

// Write into SL 



address 


, 


(A) 


address 


1 < 


(Q) 


address 


2 , 


(Z) 


address 


3 , 


(LP) 


address 


4 




address 


5 




address 


6 




address 


7 




address 


10 


(octal) 


address 


11 


(octal) 


address 


12 


(octal) 


address 


13 


(octal) 


address 


14 


(octal) 


address 


: 


(A) 


address 


: 1 


(Q) 


address 


: 2 


(Z) 


address 


: 3 


(LP) 


address 


i 10 (octal) 


address 


i 11 


'. (octal) 


address 


: 12 (octal) 


address 


: 13 (octal) 


address 


: 14 (octal) 



// THESE 

// 

GENRST = 

CLINH 

CLINH1 = 

CLSTA 

CLSTB 

CLISQ 

CLRP 

INH 

RPT 

SBWG 

SETSTB = 

WE 

WPCTR 

WSQ 



ARE THE LEFTOVERS 



THEY'RE PROBABLY USED IN SUBSYSTEM C 



86, // General Reset** 

87, // Clear INHINT** 

88, // Clear INHINT1** 

89, // Clear state counter A (STA) ** 

90, // Clear state counter B (STB) ** 

91, // Clear SNI** 

92, // Clear RPCELL** 

93, // Set INHINT** 

94, // Read RUPT opcode ** 

95, // Write G from memory 

96, // Set the ST1 bit of STB 

97, // Write E-MEM from G 

98, // Write PCTR (latch priority counter sequence) ** 

99, // Write SQ 



WSTB =100, // Write stage counter B (STB)** 
R2000 =101, // Read 2000 ** 



}; 



TC 


=00, 


// 00 


CCS 


=01, 


// 01 


INDEX 


=02, 


// 02 


XCH 


=03, 


// 03 



// INSTRUCTIONS 

// Op Codes, as they appear in the SQ register, 
enum instruction { 

// The code in the SQ register is the same as the op code for these 

// four instructions. 

TC K Transfer Control 1 MCT 

CCS K Count, Compare, and Skip 2 MCT 

INDEX K 2 MCT 

XCH K Exchange 2 MCT 

// The SQ register code is the op code + 010 (octal) . This happens because all 

// of these instructions have bit 15 set (the sign (SG) bit) while in memory. When the 

// instruction is copied from memory to the memory buffer register (G) to register 

// B, the SG bit moves from bit 15 to bit 16 and the sign is copied back into bit 

// 15 (US) . Therefore, the CS op code (04) becomes (14), and so on. 

CS =014, // 04 CS K Clear and Subtract 2 MCT 

TS =015, // 05 TS K Transfer to Storage 2 MCT 

AD =016, // 06 AD K Add 2 or 3 MCT 

MASK =017, // 01 MASK K Bitwise AND 2 MCT 

// These are extended instructions . They are accessed by executing an INDEX 5777 

// before each instruction. By convention, address 5777 contains 47777. The INDEX 

// instruction adds 47777 to the extended instruction to form the SQ op code. For 

// example, the INDEX adds 4 to the 4 op code for MP to produce the 11 (octal; the 

// addition generates an end—around-carry) . SQ register code (the 7777 part is a 

// negative zero) . 

MP =011, // 04 MP K Multiply 10 MCT 

DV =012, // 05 DV K Divide 18 MCT 

SU =013, // 06 SU K Subtract 4 or 5 MCT 

}; 



.urn subseq { 




TCO 


=0, 


CCSO 


=1, 


CCS1 


=2, 


NDXO 


=3, 


NDX1 


=4, 


RSM3 


=5, 


XCHO 


=6, 


CSO 


= 7, 


TSO 


=8, 


ADO 


=9, 


MASKO 


=10, 


MPO 


=11, 


MP1 


=12, 


MP3 


=13, 


DVO 


=14, 


DV1 


=15, 


SUO 


=16, 


RUPT1 


=17, 


RUPT3 


=18, 


STD2 


=19, 


PINCO 


=20, 


MINCO 


=21, 


SHINCO 


=22, 


NO_SEQ 


=23 



}; 

enum scType { // identifies subsequence for a given instruction 

SUBO=0, // ST2=0, ST1=0 

SUB1=1, // ST2=0, ST1=1 

SUB2=2, // ST2=1, ST1=0 

SUB3=3 // ST2=1, ST1=1 

}; 

enum brType { 

BROO =0, // BR1=0, BR2=0 

BR01 =1, // BR1=0, BR2=1 



BRIO =2, // BR1=1, BR2=0 

BR11 =3, // BR1=1, BR2=1 

NO_BR =4 // NO BRANCH 



const int GOPROG 



=02000; 



// bottom address of fixed memory 



class regSQ : public reg 
{ 
public: 

regSQO : reg (4, "%02o") { } 



class regSTA : public reg 
{ 
public: 

regSTA() : reg (2, "%01o") { } 

}; 



class regSTB : public reg 
{ 
public: 



regSTB() : reg (2, "%01o") { } 



}; 



class regBRl : public reg 
{ 
public: 

regBRl () : reg(l, "%01o") { } 

}; 



class regBR2 : public reg 
public: 



regBR2() : reg(l, "%01o") { } 



}; 



class regCTR : public reg 
{ 
public: 

regCTR() : reg (3, "%01o") { } 

}; 



class regSNI : public reg 
{ 
public: regSNI() : reg(l, "%01o") { } 

}; 



class SEQ 
{ 
public: 














static 


void 


execWP_ 


_GENRST () 


static 


void 


execWP 


WSQ(); 


static 


void 


execWP_ 


_NISQ(); 


static 


void 


execWP_ 


CLISQ () ; 


static 


void 


execWP_ 


_ST1 () ; 


static 


void 


execWP_ 


_ST2 () ; 


static 


void 


execWP_ 


_TRSM() ; 


static 


void 


execWP_ 


CLSTA () ; 


static 


void 


execWP 


_WSTB() ; 


static 


void 


execWP_ 


CLSTB () ; 


static 


void 


execWP_ 


SETSTB () 


static 


void 


execWP_ 


_TSGN() ; 


static 


void 


execWP_ 


_TOV() ; 


static 


void 


execWP_ 


_TMZ() ; 


static 


void 


execWP_ 


_TSGN2() ; 


static 


void 


execWP_ 


_CTR() ; 


static 


void 


execWP_ 


_CLCTR () ; 



static regSNI register_SNI ; 
static cpType glbl_cp [MAXPULSES ] ; 



// select next intruction flag 
// current set of asserted control pulses 
(MAXPULSES) 



static char* cpTypeString [ ] ; 



}; 

#endif 



// Test the currently asserted control pulses; return true if the specified 

// control pulse is active. 

static bool isAssertedfcpType pulse); 

// Return a string containing the names of all asserted control pulses, 
static char* getControlPulses () ; 

static subseq glbl_subseq; // currently decoded instruction subsequence 

static regSQ register_SQ; // instruction register 

static regSTA register_STA; // stage counter A 
static regSTB register_STB; // stage counter B 
static regBRl register_BRl; // branch registerl 
static regBR2 register_BR2 ; // branch register2 
static regCTR register_LOOPCTR; // loop counter 

static char* instructionString[] ; 



SEQ (SEQ.cpp) 

/**************************************************************************** 

* SEQ - SEQUENCE GENERATOR subsystem 
* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: SEQ.cpp 

* 

* NOTES: see header file. 

* 

**************************************************************** ************* 

*/ 

^include "SEQ.h" 
^include "ADR . h " 
^include "BUS.h" 

regSNI SEQ: :register_SNI; // select next intruction flag 

cpType SEQ : : glbl_cp [ ] ; // current set of asserted control pulses (MAXPULSES) 

regSQ SEQ: :register_SQ; // instruction register 

regSTA SEQ : : register_STA; // stage counter A 

regSTB SEQ: :register_STB; // stage counter B 

regBRl SEQ : : register_BRl ; // branch registerl 

regBR2 SEQ: :register_BR2; // branch register2 

regCTR SEQ: : register_LOOPCTR; // loop counter 

subseq SEQ : : glbl_subseq; // currently decoded instruction subsequence 

char* SEQ: : instructionString [ ] = 

{ 

"TC", 
"CCS", 
"INDEX", 
"XCH", 

"MP", 
"DV", 
"SU", 
"CS", 
"TS", 
"AD", 
"MASK" 



char* SEQ: : cpTypeString [ ] = 
{ 

"NO_PULSE", 

// OUTPUTS FROM SUBSYSTEM A 

"CI", "CLG", "CLCTR", "CTR" , "GP", "KRPT" , "NISQ" , "RA", "RB", 
"RB14", "RC", "RG", "RLP", "RP2", "RQ", "RRPA", "RSB", "RSCT", 
"RU", "RZ", "Rl", "R1C", "R2", "R22", "R24", "ST1", "ST2", "TMZ", 
"TOV", "TP", "TRSM", "TSGN", "TSGN2" , "WA" , "WALP", "WB", "WGx", 
"WLP", "WOVC", "WOVI", "WOVR", "WP" , "WPx", "WP2", "WQ", "WS", 
"WX", "WY", "WYx", "WZ", 

// OUTPUTS FROM SUBSYSTEM A; USED AS INPUTS TO SUBSYSTEM B ONLY; 

// NOT USED OUTSIDE CPM 

// 

"RSC", "WSC", "WG", 

// OUTPUTS FROM SUBSYSTEM A; USED AS INPUTS TO SUBSYSTEM C ONLY; 

// NOT USED OUTSIDE CPM 

// 

"SDV1", "SMP1", "SRSM3", 

// EXTERNAL OUTPUTS FROM SUBSYSTEM B 



// 

"RAO", "RA1", "RA2", "RA3", "RA4", "RA5", "RA6", "RA7", "RA10", "RA11", 
"RA12", "RA13", "RA14", "RBK", "WAO", "WA1", "WA2" , "WA3", "WA10", 
"WA11", "WA12", "WA13", "WA14", "WBK" , "WGn", "W20", "W21", "W22", "W23" 

// THESE ARE THE LEFTOVERS — THEY'RE PROBABLY USED IN SUBSYSTEM C 

// 

"GENRST", "CLINH", "CLINH1", "CLSTA", "CLSTB" , "CLISQ", "CLRP", "INH", 

"RPT", "SBWG", "SETSTB", "WE", "WPCTR" , "WSQ" , "WSTB", "R2000" 



); 



void SEQ: : execWP_GENRST ( ) 
{ 

register_SQ. write (0) ; 

register_BRl . write (0) ; 

register_BR2 . write (0) ; 

register_SNI . write (0) ; 

register_LOOPCTR . write (0) ; 

register_STA . write (0) ; 

register_STB . write (0) ; 
) 

void SEQ : : execWP_WSQ ( ) 

{ 

register_SQ. write (BUS : : glbl_WRITE_BUS » 12) ; 

} 



void SEQ: :execWP_NISQ() 

{ 

register_SNI .writeFieldfl, 1, 1) ; // change to write (1)?? 

} 

void SEQ: :execWP_CLISQ() 
{ 

register_SNI.writeField(l, 1, 0) ; // change to write (0) ?? 
} 



bool SEQ: :isAsserted(cpType pulse) 
{ 

for (unsigned i=0; i<MAXPULSES; i++) 

if (glbl_cp [i] == pulse) return true; 

return false; 
} 



char* SEQ: -.getControlPulses () 
{ 

static char buf [MAXPULSES * 6 ] ; 

strcpy (buf, " ") ; 

for (unsigned i=0; i<MAXPULSES && glbl_cp[i] != NO___PULSE; i++) 
{ 

strcat (buf, cpTypeString [glbl_cp [i] ] ) ; 

strcat (buf, " ") ; 

} 

//if(strcmp(buf,"") == 0) strcat (buf , "NONE") ; 

return buf; 



void SEQ: : execWP_STl () 
{ 

register_STA.writeField(l, 1, 1) ; 

} 



void SEQ: :execWP_ST2 () 

{ 

register_STA.writeField(2,2, 1) ; 

} 

void SEQ: :execWP_TRSM() 
{ 

if (ADR: :EQU_25 () ) 

register_STA. writeField (2, 2, 1) ; 
} 

void SEQ: :execWP_CLSTA() 
{ 

register_STA. writeField (2, 1,0) ; 

} 



void SEQ: :execWP_WSTB() 
{ 

register_STB . write (SEQ: :register_STA. read () ) ; 
) 

void SEQ: : execWP_CLSTB ( ) 

{ 

register_STB .writeField (2 , 1,0) ; 

} 

void SEQ : : execWP_SETSTB ( ) 
{ 

register_STB . writeField(2, 1, 1) ; 
) 



void SEQ: : execWP_TSGN () 
{ 

// Set Branch 1 FF 

// if sign bit is ' 1 ' (negative sign) 

if(BUS::glbl_WRITE_BUS S 0100000) 

register_BRl . write (1) ; 
else 

register_BRl . write (0) ; 

} 

void SEQ: :execWP_TOV() 

{ 

// Set Branch 1 FF 

// if negative overflow (sign==l; overflow==0) 

if ( (BUS : : glbl_WRITE_BUS S 0140000) == 0100000) 

register_BRl . write (1) ; 
else 

register_BRl . write (0) ; 

// Set Branch 2 FF 

// if positive overflow (sign==0; oveflow==l) 

if((BUS::glbl_WRITE_BUS & 0140000) == 0040000) 

register_BR2 . write (1) ; 
else 

register_BR2 . write (0) ; 



void SEQ : : execWP_TSGN2 ( ) 

{ 

// Set Branch 2 FF 

// if sign bit is ' 1 ' (negative sign) 



if (BUS: : glbl_WRITE_BUS & 0100000) 
register_BR2 . write (1) ; 

else 

register_BR2 . write (0) ; 



} 



void SEQ : : execWP_TMZ ( ) 
{ 

// Set Branch 2 FF 
// if minus zero 

if(BUS::glbl_WRITE_BUS == 0177777; 

register_BR2 . write (1) ; 
else 

register_BR2 . write (0) ; 
} 



void SEQ: : execWP_CTR ( ) 

{ 

register_LOOPCTR. write (register_LOOPCTR. read() +1) , 

} 

void SEQ: : execWP_CLCTR ( ) 
{ 

register_LOOPCTR. write (0) ; 
) 



TPG (TPG.h) 

/**************************************************************************** 

* TPG - TIME PULSE GENERATOR subsystem 
* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: TPG.h 
* 

* VERSIONS: 

* 

* DESCRIPTION: 

* Time Pulse Generator and Start/Stop Logic for the Block 1 Apollo Guidance 

* Computer prototype (AGC4) . 

* 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4) ", Albert Hopkins , Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES : 
* 
***************************************************************************** 

*/ 
Hfndef TPG_H 
idefine TPG_H 

^include "reg.h" 

// Start/Stop Logic and Time Pulse Generator Subsystem 



// TIME PULSE 1 : start of memory cycle time (MCT) 



.urn tpType { 




STBY 


=0, 


PWRON 


=1, 


TP1 


=2, 


TP2 


=3, 


TP3 


=4, 


TP4 


=5, 


TP5 


=6, 


TP6 


= 7, 


TP7 


=8, 


TP8 


=9, 


TP9 


=10, 


TP10 


=11, 


TP11 


=12, 


TP12 


=13, 


SRLSE 


=14, 


WAIT 


=15 



// EMEM is available in G register by TP6 
// FMEM is available in G register by TP7 



// G register written to memory beginning at TP10 
// TIME PULSE 11: end of memory cycle time (MCT) 
// select new subsequence/select new instruction 

// step switch release 



}; 



class regSG : public reg 
{ 
public: regSG() : reg (4, "%02o") { } 

}; 



class TPG 

{ 

public: 

static void doexecWP_TPG ( ) ; 



static regSG register_SG; 
static char* tpTypestring [ ] , 

}; 

#endif 



TPG (TPG.cpp) 

/**************************************************************************** 

* TPG - TIME PULSE GENERATOR subsystem 
* 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: TPG.cpp 

* 

* NOTES: see header file. 

* 
**************************************************************** 

*/ 

^include "TPG.h" 

^include "MON.h" 

#include "SCL.h" 

if include "SEQ.h" 

^include "OUT.h" 

char* TPG: :tpTypestring[] = // must correspond to tpType enumerated type 
{ 

"STBY", "PWRON", "TP1", "TP2", "TP3", "TP4", "TP5" , "TP6", "TP7", "TP8" 

"TP9", "TP10", "TP11", "TP12", "SRLSE", "WAIT" 



regSG TPG: :register_SG; // static member 



void TPG: :doexecWP_TPG() 

{ 

unsigned mystate = register_SG.read() ; 
if (HON: :PURST) 

mystate = STBY; 
else 

switch (mystate) 
{ 



case STBY: 
case PWRON: 



if(!MON::PURST&& ( ( !MON: :FCLK) II SCL : : Fl 7x () )) mystate 
if(((!MON::FCLK) // SCL: :F13x () ) ) mystate = TP1; break; 



PWRON; break; 



mystate = TP2; 

mystate = TP3; 

mystate = TP4; 

mystate = TP5; 

mystate = TP6; 

mystate = TP7; 

mystate = TP8; 

mystate = TP9; 

mystate = TP10; 

mystate = TP11; 

mystate = TP12; 



break; 
break; 
break; 
break; 
break; 
break; 
break; 
break; 
break; 
break; 
break; 



case TP1 : 
case TP2 : 
case TP3 : 
case TP4 : 
case TP5 : 
case TP6: 
case TP7 : 
case TP8 : 
case TP9: 
case TP10: 
case TP11: 
case TP12: 

if(SEQ::register_SNI.read() && OUT: : register_OUTl .readField(8, 8) && MON::SA) 
mystate = STBY; 

// the next transition to TP1 is incompletely decoded; it works because 
// the transition to STBY has already been tested, 
else if( (MON : : RUN) / / ( ! SEQ : : regist er_SNI . read () && MON: : INST) ) 

mystate = TP1; 
else 

mystate = SRLSE; 
break; 
case SRLSE: if (!MON: :STEP) mystate = WAIT; break; 

case WAIT: 

if (MON :: STEP II MON::RUN) 

mystate = TP1; 
break; 
default : break; 

) 
register_SG. write (mystate) ; 



